Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 2
Регистрация: 05.01.2016
Сообщений: 65
1

Если элемент массива четный, то прибавить к нему первый, если нечетный - последний элементы массива

20.03.2016, 19:14. Просмотров 1241. Ответов 4
Метки нет (Все метки)

Написать программу изменения элементов массива. Если элемент четный, то прибавить к нему первый, если нечетный - последний массива. Первый и последний элементы не изменять.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2016, 19:14
Ответы с готовыми решениями:

Для двумерного массива. Если элемент четный, то прибавить к нему первый, если нечетный — последний элементы массива
Для двумерного массива. Если элемент четный, то прибавить к нему первый, если нечетный — последний...

Если очередной элемент массива чётный, то прибавь к нему первый, если нечётный — прибавить последний
Дан одномерный массив состоящий из n элементов. Если очередной элемент чётный, то прибавь к нему...

Если элемент массива четный — прибавить к нему первый, если нечетный — последний элемент
здравствуйте еще раз)) Спасибо за то что помогли с прошлой задачей огромной)) можно еще одну)...

Если элемент массива четный, то прибавить к нему первый элемент массива, если нечетный - то последний. В чем ошибка?
Помогите решить: Если элемент массива четный, то прибавить к нему первый элемент массива, если...

4
Модератор
Эксперт Pascal/Delphi
6262 / 4221 / 4609
Регистрация: 05.06.2014
Сообщений: 20,794
21.03.2016, 14:04 2
Pascal
1
2
3
4
5
for i:=2 to n-1 do
 if odd(a[i]) then
  a[i]:=a[i]+a[n]
 else
  a[i]:=a[i]+a[1];
0
0 / 0 / 2
Регистрация: 05.01.2016
Сообщений: 65
26.03.2016, 16:16  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Program Massiv;
        
const MaxN = 10; //Количество элементов в массиве
type MyArray = array[1..MaxN] of Integer;
var A : MyArray; //Рабочий массив
 
//Процедура для заполнения массива случайными числами
Procedure InitMasRandom(n : Integer; var A : MyArray);
const ot = 1; ido = 10; 
var 
  i : Integer;
begin
  Randomize;
  WriteLn('Заполнение массива случайными числами'); 
  for i := 1 to n do 
  begin
    A[i] := Random(ot, ido);
    Write(A[i] : 4); 
  end;
  WriteLn();
end;
 
//Основная программа
procedure necchot(n : integer; A : MyArray);
var
  i:integer;
begin
for i:=2 to n-1 do 
 if A[i] div 2 = 0 then
  A[i]:=A[i]+A[1]
 else
   A[i]:=A[i]+A[n];
end;
 
 
//Процедура для вывода данных
Procedure WriteMas(n : Integer; A : MyArray);
var 
  i : Integer;
begin
  WriteLn('Результат работы программы');
  for i := 1 to n do 
    Write(A[i] : 4);
  WriteLn();
end;
0
Модератор
60552 / 45553 / 31439
Регистрация: 18.05.2008
Сообщений: 109,487
26.03.2016, 17:16 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
const MaxN = 10; //Количество элементов в массиве
type MyArray = array[1..MaxN] of Integer;
//Процедура для заполнения массива случайными числами
Procedure InitMasRandom(var n : Integer; var A : MyArray);
const ot = 1; ido = 10;
var i : Integer;
begin
  repeat
  write('Ввдите размер массива от 3 до ',MaxN,' n=');
  readln(n);
  until n in [3..MaxN];
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    A[i] :=Random(ot, ido);
    Write(A[i] : 4);
  end;
  WriteLn;
end;
 
//Основная программа
procedure necchot(n : integer; var A : MyArray);
var
  i:integer;
begin
for i:=2 to n-1 do
if A[i] mod 2 = 0 then A[i]:=A[i]+A[1]
else A[i]:=A[i]+A[n];
end;
 
//Процедура для вывода данных
Procedure WriteMas(n : Integer; A : MyArray);
var i : Integer;
begin
writeln('Измененнный массив');
for i := 1 to n do
Write(A[i] : 4);
WriteLn;
end;
var A : MyArray; //Рабочий массив
    n: integer;
begin
InitMasRandom(n,A);   
necchot(n,A);
WriteMas(n,A);
end.
1
0 / 0 / 2
Регистрация: 05.01.2016
Сообщений: 65
26.03.2016, 20:11  [ТС] 5
Я понял в чем была ошибка!) я не написал Var когда в основной программе при объявлении массива))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2016, 20:11

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Если элемент массива четный, то прибавить к нему первый элемент, а если нечетный - последний.
Если значение элемента массива четно, то прибавить к нему первый элемент массива, а если нечетно -...

Если индекс элемента массива четный, то элемент возвести в квадрат, если нечетный – удвоить
Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке . Сформировать...

Удалить из массива последний четный элемент (если в массиве есть четные элементы)
Удалить из массива последний четный элемент (если четные элементы в массиве есть).

Из элементов массива А сформировать массив В той же размерности следующим образом: если номер четный, то B[i]:=A[i]*i, если нечетный B[i]:=-A[i]
Из элементов массива А размерностью n>10 сформируйте массив В той же размерности следующим образом:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.