Вывести 20 целых случайных чисел в диапазоне от 0 до 200

Question

Информатика

Арефий

31 мая, 22:57

Вывести 20 целых случайных чисел в диапазоне от 0 до 200

+2

Ответы (1)

Знаете ответ на вопрос?

Паля · Answer 1

Var i:integer;

begin

Randomize;

for i:=1 to 20 do

write (random (201),' ') ;

writeln;

end.

Пример:

64 178 134 6 58 198 34 94 69 132 113 153 31 7 27 74 98 67 168 54