Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива. Необходимо вывести все четные элементы массива (то есть те элементы, которые являются четными числами).

Program Massiv;

Uses Crt;

const n=10; / / n - которое мы задали

var array[1 ... n] of integer;

var i:integer;

begin

clrscr;

write ('Размер массива:', n,'Исходный массив:');

for i:=1 to n do

begin

a[i]:=random (41) - 20;

write (a[i],' ');

end;

writeln;

write ('Чётные элементы массива:');

for i:=1 to n do if (a[i] mod 2) = 0 then write (a[i],' ');

readkey;

end.