Решите пожалуйста
Контрольная работа «Одномерные массивы»
1 вариант.
1. Вывести на экран значения всех элементов массива MAS с четными индексами
2. Вычислить сумму элементов массива MAS с нечетными значениями.
3. В элемент массива, находящийся ровно в центре массива, занести значение суммы двух соседних элементов.
4. Значения массива сдвинуть циклически вправо на одну позицию так, чтобы последний элемент стал первым.
5. Массив (размерности n) «сожмите», выбросив из него каждый второй элемент. «Освободившиеся» места в правой части массива заполните нулями. Дополнительный массив не использовать.

Номер 1

Program n_1;

var MAS: array [1..10] of integer; i: integer;

begin

   for i:=1 to 10 do read(MAS[i]);

   for i:=1 to 10 do if i mod 2 = 0 then write(MAS[i], ' ');

end.

Номер 2

Program n_1;

var MAS: array [1..10] of integer; i, s: integer;

begin

   s:=0;

   for i:=1 to 10 do read(MAS[i]);

   for i:=1 to 10 do if MAS[i] mod 2 = 1 then s:=s+MAS[i];

   writeln(s);

end.

Номер 3

Program n_1;

var MAS: array [1..5] of integer; i, s: integer;

begin

   for i:=1 to 5 do read(MAS[i]);

   s:=trunc(5/2)+1;

   MAS[s]:=MAS[s-1]+MAS[s+1];

   writeln(MAS[s]);

end.

Номер 4

Program n_1;

var MAS: array [1..10] of integer; i, n: integer;

begin

   for i:=1 to 10 do read(MAS[i]);

   n:=MAS[10];

   for i:=9 downto 1 do begin

       MAS[i+1]:=MAS[i];

   end;

   MAS[1]:=n;

   for i:=1 to 10 do write(MAS[i], ' ');

end.

Номер 5

Program n_1;

var MAS: array [1..10] of integer; i: integer;

begin

   for i:=1 to 10 do begin

       read(MAS[i]);

       if i mod 2 = 0 then MAS[i]:=0;

   end;

   for i:=1 to 10 do write(MAS[i], ' ');

end.