Question

паскаль программа, срочно!!
кароче надо с randomize вывести 10 чисел от 1 до 100​

Answer 1

var i: integer;

a:real;

begin

 randomize;

 for i:=1 to 10 do

 begin

   a:=random(1,100);

   writeln(a);

 end;

end.