Program Typlex;

Uses crt;

Var M: array[1..1000000] of longint;

      i,n,sum,dem: longint;

Begin

     Writeln('Nhap so phan tu: '); Readln(n);

     For i:=1 to n do 

     Begin

          Writeln('M[',i,']=');

          Readln(M[i]);

     End;

     (*Cau a*)

     For i:=1 to n do Write(M[i],' ');

     (*Cau b*)

     sum:=0;

     For i:=1 to n do

          If M[i] mod 2 = 0 then sum:=sum+M[i];

     Write('Tong cua cac phan tu chan trong mang la: ',sum);

     (*Cau c*)

     dem:=0;

     For i:=1 to n do

          If M[i] mod 3 = 0 then dem:=dem+1;

     Writeln('So phan tu chia het cho 3 trong day do la: ',dem);

     Readln

End.

uses crt;
var a:array[1..100] of integer; n,i,s,d:integer;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      write('Day vua nhap: ');
      begin
            for i:=1 to n do write(a[i],' '); writeln;
            s:=0;
            for i:=1 to n do if a[i] mod 2=0 then s:=s+a[i];
            write('Tong cac phan tu chan: ',s);
            writeln;
            d:=0;
            for i:=1 to n do if a[i] mod 3=0 then d:=d+1;
            write('So phan tu chia het cho 3: ',d);
      end;
      readln;
end.