Question

Запишите команду генерации случайного числа от 0 до 51.

Answer 1

var  n, i: integer;  

begin

 writeln('Введите, сколько нужно сгенерировать случайных чисел');

 readln(n);

 randomize;

 for i:= 1 to n do

   write(random(52), ' ');

end.