Даны n чисел. Вывести на экран наименьшее число.

Question

Информатика

Злата

16 декабря, 06:07

Даны n чисел. Вывести на экран наименьшее число.

+5

Ответы (1)

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

Перфилий · Answer 1

Var n, min, i:integer; a:array[1 ... 100] of integer;

begin

read (n) ;

for i:=1 to n do readln (a[i]) ;

min:=a[1];

for i:=2 to n do if a[i]
writeln (min) ;

end.