Question

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

Answer 1

Ответ:

var n, i, x: integer;

begin

   randomize;

   n := random (7) + 5;

   for i := 1 to n do begin

       x := random (100) - 50;

       write (x:5)

   end;

readln

end.

Отметь как 5 звезд, нажми на спасибо и выбери как лучший ответ! спасибо!!