Question

Напишите программу, которая вводит натуральное число N и выводит на экран N псевдослучайных чисел.

Answer 1

var
i,n:integer;
begin
     readln(N); {вводим N}
     For i:=1 to n do
            write(Random(100),' '); {выводим псевдослучайные числа в диапазоне [0; 100) }
end.