Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дан массив, состоящий из целых чисел. Нумерация элементов начинается с 0. Напишите программу, которая выведет элементы массива, номера которых четны

Ответ оставил Гость

Var a:array[0..100] of integer; 
n,i:integer; 
begin 
writeln(Введите количество элементов массива); 
read(n); 
for i:=0 to n-1 do read(a[i]); 
for i:=0 to n-1 do 
if i mod 2=0 then write(a[i], ); 
end.