Составьте программу, определяющую минимальное из 10 случайных чисел.

Составьте программу, определяющую минимальное из 10 случайных чисел.
Гость
Ответ(ы) на вопрос:
Гость
var   i,n, min: :integer; begin randomize; min:=999;   for i:=1 to 10 do     begin      n:= 1+ random(900);      if  n < min then  min := n;     end;   Writeln ('min=', min) end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы