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

Question

Информатика

Василек

24 февраля, 00:16

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

+3

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