uses crt;
var i,n,min,min1,vt,vt1:longint; a:array[1..100000]of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
min:=high(longint); min1:=0;
for i:=1 to n Do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
if (a[i]>0)and(a[i]<min) then
begin vt:=i; min:=a[i]; end;
if (a[i]<0)and(a[i]<min1) then
begin vt:=i; min1:=a[i]; end;
end;
writeln('Vi tri so duong nho (be) nhat: ',vt,'. So do la: ',min);
writeln('Vi tri so am nho (be) nhat: ',vt,'. So do la: ',min1);
readln
end.