uses crt;
var a:array[0..10000000] of longint;
n,i,min,max,k,j:longint;
begin
clrscr;
write('Nhap do dai day so: ');readln(n);
for i:=0 to n-1 do
begin
write('a[',i,']=');readln(a[i]);
end;
min:=a[0];
for i:=0 to n-1 do if a[i]<min then min:=a[i];
max:=min;
for i:=0 to n-1 do if a[i]<0 then
begin
if a[i]>max then
begin
max:=a[i];
k:=i;
end;
end;
write('So hang am lon nhat trong day la: a[',k,']=',max);
readln;
end.