program phuongt;
uses crt;
  var A: array[1..500] of integer;
     i, n, sd, s1, sa, s2, max, min, k, t: integer;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        for i:=1 to n do
        begin
                write('A[', i, '] = '); readln(A[i]);
                if A[i]>0 then
                begin
                        sd:=sd+1;
                        s1:=s1+A[i];
                end;
                if A[i]<0 then
                begin
                        sa:=sa+1;
                        s2:=s2+A[i];
                end;
        end;
        writeln('1. Tong = ', s1+s2);
        writeln('2. Co ', sd, ' so hang duong, tong = ', s1);
        writeln('3. Co ', sa, ' so hang am, tong = ', s2);
        writeln('4. Tong TBC = ', (s1+s2)/n:3:2);
        writeln('   TBC phan tu duong: ', s1/sd:3:2);
        writeln('   TBC phan tu am: ', s2/sa:3:2);
        for i:=1 to n do if A[i]>0 then
        begin
                writeln('5. Chi so cua so hang duong dau tien: ', i);
                break;
        end;
        for i:=1 to n do if A[i]<0 then
        begin
                writeln('6. Chi so cua so hang am dau tien: ', i);
                break;
        end;
        for i:=n downto 1 do if A[i]>0 then
        begin
                writeln('7. Chi so cua so hang duong cuoi: ', i);
                break;
        end;
        for i:=n downto 1 do if A[i]<0 then
        begin
                writeln('8. Chi so cua so hang am cuoi cung: ', i);
                break;
        end;
        max:=A[1];
        for i:=1 to n do if max<A[i] then
        begin
                max:=A[i];
                k:=i;
        end;
        writeln('9. So hang lon nhat la ', max, ' va chi so cua no la ', k);
        min:=A[1];
        for i:=1 to n do if min>A[i] then
        begin
                min:=A[i];
                k:=i;
        end;
        writeln('10. So hang nho nhat la ', min, ' va chi so cua no la ', k);
        for i:=1 to n do if A[i]<0 then
        begin
                max:=A[i];
                k:=i;
                break;
        end;
        for i:=1 to n do if A[i]<0 then if max<A[i] then
        begin
                max:=A[i];
                k:=i;
        end;
        writeln('11. So hang am lon nhat la ', max, ' va chi so cua no la ', k);
        for i:=1 to n do if A[i]>0 then
        begin
                min:=A[i];
                k:=i;
                break;
        end;
        for i:=1 to n do if A[i]>0 then if min>A[i] then
        begin
                min:=A[i];
                k:=i;
        end;
        writeln('12. So hang duong nho nhat la ', min, ' va chi so cua no la ', k);
        write('13. Gia tri lon thu nhi la ');
        max:=A[1];
        for i:=1 to n do if max<A[i] then max:=A[i];
        if max=A[1] then t:=A[2] else t:=A[1];
        for i:=1 to n do if (t<A[i]) and (A[i]<>max) then
        begin
                t:=A[i];
                k:=i;
        end;
        writeln(t, ' va chi so cua no la ', k);
        write('14. Gia tri nho thu nhi la ');
        min:=A[1];
        for i:=1 to n do if min>A[i] then min:=A[i];
        if min=A[1] then t:=A[2] else t:=A[1];
        for i:=1 to n do if (t>A[i]) and (A[i]<>min) then
        begin
                t:=A[i];
                k:=i;
        end;
        write(t, ' va chi so cua no la ', k);
        readln
end.