Составьте программу, определяющую минимальное из 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.
Не нашли ответ?
Похожие вопросы