Question

Составьте программу, которая позволяет вводить с клавиатуры элементы массива а [1..10] и вывода на экран элементов с четными индексами

Answer 1

program mas;
var i:integer; a:array[1..10] of integer
begin 


for i=1 to 10 do
begin
readln(a[i]);
end;


for i=2 to 10 do
begin
writeln(a[i]);
i:=i+1;
end;

end.