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

Question

Информатика

Филипка

3 февраля, 02:09

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

+1

Ответы (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.