Составить программу которая напечатает 10 случайных чисел, в диапазоне от 1 до 100....

Question

Составить программу которая напечатает 10 случайных чисел, в диапазоне от 1 до 100. паскаль авс

Answer 1

Var i:integer;
begin
Randomize;
for i:=1 to 10 do writeln(Random(100)+1);
end.