uses crt;
var a:array[1..100000] of longint;
    n,min,last,first,vtmin,i,d:longint;
    tduong,tam:int64;
    kt:boolean;
begin
clrscr;
write('Nhap n: '); readln(n);
min:=high(longint); kt:=true;
Write('Nhap cac so hang: ');
for i:=1 to n do begin
                 read(a[i]);
                 if a[i]>0 then begin
                                d:=d+1;
                                inc(tduong,a[i]);
                                if kt then begin
                                           kt:=false;
                                           first:=i;
                                           end;
                                last:=i;
                                if min>a[i] then begin
                                                 min:=a[i];
                                                 vtmin:=i;
                                                 end;
                                end
                 else if a[i]<0 then inc(tam,a[i]);
                 end;
writeln('1) So luong so hang duong trong day: ',d);
writeln('   Tong cac so hang duong: ',tduong);
writeln('2) So luong so hang am trong day: ',n-d);
writeln('   Tong cac so hang am: ',tam);
if d=0 then begin
            write('Khong co so hang duong, an Enter de thoat');
            readln;
            exit;
            end;
writeln('3) Chi so cua so hang duong dau tien: ',first);
writeln('4) Chi so cua so hang duong cuoi cung: ',last);
writeln('5) So hang duong nho nhat la ',min,' va chi so cua so do la ',vtmin);
readln;
readln;
end.

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.