BÀI TẬP 5_MẢNG

Nhập vào dãy số gồm N phần tử (N được nhập và từ bàn phím). Viết chương trình theo yêu cầu:
                    - In ra màn hình dãy các số dương và tổng các số dương.
                    - In ra màn hình dãy các số âm và tổng các số âm.

 CODE THAM KHẢO

Program BT5;

uses crt;

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

    i,n,sd,sa: integer;

begin

    clrscr;

    write('Nhap so phan tu N = '); readln(n);

    for i:=1 to n do

        begin

            write('Nhap phan tu thu ',i,': ');

            readln(A[i]); 

        end;

    write('Day so duong la: ');

    sd:=0;

    for i:=1 to n do 

    if A[i] > 0 then 

    begin

        write(A[i],' ');

        sd:=sd+A[i];

    end; writeln;

    writeln('Tong cac so duong la: ',sd);

    write('Day so am la: ');

    sa:=0;

    for i:=1 to n do 

    if A[i] < 0 then 

    begin

        write(A[i],' ');

        sa:=sa+A[i];

    end; writeln;

    writeln('Tong cac so am la: ',sa);

    readln;

end.