Ввод и вывод массива из 100 элементов, заданных случайным образом из [-20;20].

program q174147740;

var

 i, k: integer;

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

begin

k:=0;

 Randomize;

 for i := 1 to 20 do

 begin

 a[i] := Random(100);

 Write(a[i]:3);

 if (a[i] mod 15) =0 then k:=k+1;

end;

end.

Подробнее - на -