Встречено else, а ожидался оператор
Type Chislo=array[1..5] of integer;
var c:chislo;
a:integer;
b,p,o:integer;
begin
for a:= 1 to 5 do
b:=0;
p:=0;
begin
writeln('Введите число');
readln(c[a]);
if (a mod 2 = 0) then
c[a]:=5;
b:=a;
else
c[a]:=2;
p:=a;
end;
writeln('чётные и нечётные');
for a:=1 to 5 do write (b:5,' ',p:5,' ');
end.
а вообще задание звучит так
дан одномерный массив который содержит не более 5 целых чисел замените каждый элемент с чётным номером цифрой 2, а с нечётным 5

kooyrina582mari    1   09.04.2020 13:49    6