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.
