Код:
program znaniya;
var
i : integer;
a : array[0..19] of integer;
begin
for i:=0 to 19 do begin
a[i] := random(1,10);
end;
writeln(a)
end.
