Question

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

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]<min then min:=a[i];
writeln(min);
end.