Question

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

Answer 1

Номер 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.

Answer 2

В 4 и 5 номере, где for пишется ошибка

Answer 3

Какая? у меня все работает

Answer 4

Program5.pas(8) : Неожиданный символ ' '

Answer 5

Я еще раз перепроверил, вроде все работает. в 4 номере убрал лишнюю переменную. Если кавычки - неожиданный символ, то это что-то с компилятором. Проверьте формат записи внутри скобок writeln()