BÀI TẬP 4_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 số chẵn và tổng các số chẵn.

                    - In ra màn hình dãy số lẻ và tổng các số lẻ.

CODE THAM KHẢO

Program BT4;

uses crt;

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

    i,n,sc,sl: 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 chan la: ');

    sc:=0;

    for i:=1 to n do 

    if A[i] mod 2 = 0 then 

    begin

        write(A[i],' ');

        sc:=sc+A[i];

    end; writeln;

    writeln('Tong cac so chan la: ',sc);

    write('Day so le la: ');

    sl:=0;

    for i:=1 to n do 

    if A[i] mod 2 <> 0 then 

    begin

        write(A[i],' ');

        sl:=sl+A[i];

    end; writeln;

    writeln('Tong cac so le la: ',sl);

    readln;

end.