uses crt;
var kqduong,i,duong,kqam,am,s,min,n:longint;
a: array [1..10000] of longint;
begin
clrscr;
min:=maxlongint;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,'] = ');
read(a[i]);
end;
for i:=1 to n do
begin
if a[i] > 0 then
begin
if a[i] < min then
begin
min:=a[i];
s:=i;
end;
inc(duong);
inc(kqduong,a[i]);
end;
if a[i] < 0 then
begin
inc(am);
inc(kqam,a[i]);
end;
end;
writeln;
writeln('So luong cac so hang duong la: ',duong,'. Tong so hang duong la: ',kqduong);
writeln('So luong cac so hang am la: ',am,'. Tong so hang am la: ',kqam);
for i:= 1 to n do
if a[i]>0 then
begin
writeln('Chi so hang duong dau tien: ',i);
break;
end;
for i:=n downto 1 do
if a[i]>0 then
begin
writeln('Chi so hang duong cuoi cung: ',i);
break;
end;
write('So hang duong nho nhat cua day la: ',min,'. Chi so la: ',s);
readln;
readln;
end.
