Viết phương trình nhập 1 mảng phán tử n A Tính tổng pt B Tìm số lg phân tử dương và phân tử âm C Tìm số lớn nhì của phân tử dương và số thứ nhì của ph

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.