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

var

i, n : integer; / / объявляем переменную целочисленного типа.

arr : array of integer; / / объявляем массив.

Begin

readln (n); / / задаем размер массива.

setlength (arr, n); / / выделяем память под массив.

for i: = 0 to n-1 do / / начало цикла.

begin

arr[i] : = random (0, 100); / / заполняем элемент массива с индексом i случайным числом.

if arr[i] mod 2 = 0 then / /проверяем четность элемента массива.

write (arr[i], ' '); / / вывод четного элемента массива на экран.

end;

End.