program chanle;

uses crt;

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

      n,i,dc,dl,tc,tl:integer;

begin

     clrscr;

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

     tc:=0; tl:=0;  dc:=0;   dl:=0l

     for i:=1 to n do

          begin

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

               if A[i] mod 2=0 then

                    begin

                         tc:=tc+A[i];

                         dc:=dc+1;

                    end

               else 

                    begin

                         tl:=tl+A[i];

                         dl:=dl+1;

                    end;

          end;

     writeln('a. Tong cac phan tu co gia tri chan la: ',tc);

     writeln('b. Tong cac phan tu co gia tri le la: ',tl);

     writeln('c. Co ',dc,' phan tu co gia tri chan');

     writeln('d. Co ',dl,' phan tu co gia tri le');

     readln;

end.

a. Hình 1

b. Hình 2

c. Hình 3

d. Hình 4