Question

вывести 20 целых случайных чисел в диапазоне от 0 до 200

Answer 1

var i:integer;
begin
Randomize;
for i:=1 to 20 do
 write(random(201),' ');
writeln;
end.

Пример:
64 178 134 6 58 198 34 94 69 132 113 153 31 7 27 74 98 67 168 54