Заполнить массив случайным образом и вывести на экран только четные элементы

ответ: program ll1;

Var A: array[1..10] of integer;

i: integer;

Begin

Randomize;

For i:=1 to 10 do A[i]:=random(100);

for i:=1 to 10 do

If A[i] mod 2 = 0 then writeln(A[i]);

End.

Объяснение: