Решите пожалуйста Контрольная работа «Одномерные массивы» 1 вариант. 1. Вывести ** экран...

Question

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

Comments

Надо заполнить нулями

---

Ну вроде готово

---

Хорошо

---

Только получается в 5 номере мы просто заменили все элементы с четными индексами на 0, а никак не "сжали" массив.

---

Получается так

---

Скинь пожалуйста, что у тебя есть

---

Ты здесь

---

Уже ответ же уинул

---

кинул*

---

Скидывай

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.

Comments

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

---

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

---

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

---

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