Дан массив целых чисел. Нумерация элементов начинается с 0. Выведите все элементы массива с четными номерами. Формат входных данныхСначала задано число N - количество элементов в массиве, N100. Далее через пробел записаны N чисел - элементы массива. Все числа по модулю не превосходят 10000 Формат выходных данныхВыведите все элементы массива с четными индексами (то есть A[0], A[2], A[4], ...).

program zz1;

const n = 12; / / задаем количество элементов в массиве

var i:integer; / / задаем переменные целого типа

a:array [0 ... n] of integer;

begin

for i:=0 to n do / / получаем n чисел случайных и записываем их в массив

a[i]:=random (6);

for i:=0 to n do / / выводим полученный массив на экран

write (a[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=0 to n do / / организуем цикл, в котором переберем все элементы массива

if (a[i] mod 2 = 0) and (a[i] 0) then

writeln (' a[', i,']=', a[i]); / /выводим ответ

end.