Условие в вопросе и комментариях различается, поэтому приведу два варианта. 1) Программа выводит элементы с четными номерами(те, которые стоят в массиве на четных местах)
Program n1; const n=10; var a: array[1..n] of integer; i: integer; begin writeln('Введите массив в одну строку через пробел:'); for i:=1 to n do read(a[i]); writeln('элементы с четным номером:'); for i:=1 to n do if i mod 2=0 then write(a[i],' '); end.
2) Программа выводит четные элементы массива
Program n1; const n=10; var a: array[1..n] of integer; i: integer; begin writeln('Введите массив в одну строку через пробел:'); for i:=1 to n do read(a[i]); writeln('четные элементы:'); for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); end.
1) Программа выводит элементы с четными номерами(те, которые стоят в массиве на четных местах)
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('элементы с четным номером:');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
end.
2) Программа выводит четные элементы массива
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('четные элементы:');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
end.