program phuongt;
uses crt;
  var A: array[1..500] of integer;
      i, n, s, sd, sa, j, t: integer;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        s:=0;
        sd:=0;
        sa:=0;
        for i:=1 to n do
        begin
                write('A[', i, '] = '); readln(A[i]);
                s:=s+A[i];
                if A[i]>0 then sd:=sd+1;
                if A[i]<0 then sa:=sa+1;
        end;
        writeln('_________________________________________');
        writeln;
        writeln('Tong = ',s);
        writeln('Co ',sd, ' phan tu duong');
        writeln('Co ',sa, ' phan tu am');
        for i:=1 to n-1 do
                for j:=1+i to n do
                        if A[i]<A[j] then
                        begin
                                t:=A[i];
                                A[i]:=A[j];
                                A[j]:=t;
                        end;
        if sd>=2 then write('Phan tu duong lon thu 2: ',A[2]);
        if sd<=1 then write('Khong co phan tu duong lon thu 2');
        writeln;
        s:=0;
        for i:=1 to n do
        if A[i]<0 then
        begin
                s:=A[i+1];
                break;
        end;
        if sa>=2 then write('Phan tu duong lon thu 2: ', s);
        if sa<=1 then write('Khong co phan tu am lon thu 2');
        for i:=1 to n-1 do
                for j:=1+i to n do
                        if A[i]>A[j] then
                        begin
                                t:=A[i];
                                A[i]:=A[j];
                                A[j]:=t;
                        end;
        writeln;
        write('Sap xep tang dan: ');
        for i:=1 to n do write(A[i]:3);
        readln
end.

program BT;

uses crt;

var A:array [1..500] of integer;

      n,i,T,d1,d2,max,max2,j,tg: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

                  T:=T+i;

                  if A[i]>0 then  

                  begin

                           d1:=d1+1;

                           if max<A[i] then max:=A[i];

                           if (A[i]>max2) and (A[i]<max) then max2:=A[i];

                  end;

                  if A[i]<0 then

                  begin

                           d2:=d2+1;

                           if max<A[i] then max:=A[i];

                           if (A[i]>max2) and (A[i]<max) then max2:=A[i];

                  end;

         end;

         writeln('T = ',T);

         writeln('So phan tu duong: ',d1);

         writeln('So phan tu am: ',d2);

         writeln('So lon nhi: ',max2);

         for i:=1 to n-1 do

              for j:=i+1 to n do

                   if A[i]>A[j] then

                   begin

                           tg:=A[i];

                           A[i]:=A[j];

                           A[j]:=tg;

                   end;

         write('Mang sau khi sap xep: ');

         for i:=1 to n do write(A[i],'  ');

         readln

End.