Вывести 20 целых случайных чисел в диапазоне от 0 до 200
Вывести 20 целых случайных чисел в диапазоне от 0 до 200
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы