program phantuchan;

uses crt;

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

      n,i,d:integer;

      tong:longint;

begin

          clrscr;

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

          d:=0;   tong:=0;

          for i:=1 to n do

                    begin

                              write('Phan tu thu ',i,': ');   readln(A[i]);

                              if A[i] mod =0 then

                                        begin

                                                  d:=d+1;

                                                  tong:=tong+A[i];

                                        end;

                    end;

          write('a) Mang vua nhap la: ');

          for i:=1 to n do

                    write(A[i],' ');

          writeln;

          writeln('b) Trong mang co ',d,' phan tu chan');

          writeln('c) Tong cac phan tu chan trong mang la: ',tong);

          readln;

end.

var A: array[1..100] of integer; i,dem,n: integer; tong: real;
begin
    write('Nhap so n: ');
    readln(n);
    for i:=1 to n do
    begin
        write('Nhap gia tri cho phan tu thu ',i,': ');
        readln(a[i]);
    end;
    for i:=1 to n do
        if (a[i] mod 2 = 0) then 
        begin
            dem:=dem+1;
            tong:=tong+a[i];
        end;
    writeln('Ket qua: ');
    writeln('Cau a: Day la toan bo mang: ');
    for i:=1 to n do
        write(a[i],' ');
    writeln();
    writeln('Cau b: So luong phan tu chan la: ',dem);
    writeln('Cau c: Tong phan tu chan la: ',tong:0:0);
    readln
end.