Заполнить случайным образом массив размерностью n=20, выбрать из последовательности все элементы которые заканчиваются на 0.

var n,i:integer;

a:array[1..20] of integer;

begin

n:=20;

for i:=1 to n do

begin

a[i]:=random()%202+1;

if a[i] mod 10 = 0 then writeln(a[i]);

end;

readln;

end.

ну как то так.. нету возможности проверить.