Question

сформулировать массив из 9 элементов введенных с клавиатуры и обнулить каждый 2 элемент массива

Answer 1

program znanijatop;
const n = 9;vari:byte;
a:array[1..n] of byte;begin
for i:=1 to n do beginwriteln('vvedite ',i,' element');readln(a[i]);
end;for i:=1 to n do beginwriteln('do');write(a[i],' ');
end;for i:=1 to n do beginif NOT Odd(i) thena[i]:=0;
end;for i:=1 to n do beginwriteln('posle');write(a[i],' ');
end;end.

Answer 2

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal(9);
  for var i:=0 to 8 do
    if i.IsOdd then a[i]:=0;
  a.Println
end.