Question

Найти min в массиве В (I = 1, N).

Answer 1

Var
 a:array[1..1000]of longint;
 n,m,k,i,l,min:longint;
begin
 min:=maxlongint;
 readln(n);
 for i:=1 to n do
begin
 readln(a[i]);
 if a[i]<min then min:=a[i];
end;
writeln(a[i]);
readln;
end.