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

Question

Информатика

Евлампия

26 февраля, 17:06

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

+2

Ответы (1)

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

Максим · Answer 1

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.