Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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]end;
writeln(a[i]);
readln;
end.