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*)

     sum:=0; dem:=0;

     For i:=1 to n do

          If M[i] mod 2 = 1 then

          Begin

               sum:=sum+M[i];

               dem:=dem+1;

          End;

     Writeln('Tong cua cac phan tu le trong mang la: ',sum);

     Writeln('So phan tu le la: ',dem);

     Readln

End.

uses crt;
var a:array[1..1000000] of longint;
       n,i,d,s,s1:integer;
begin
       clrscr;
       write('Nhap so luong phan tu: '); readln(n);
       d:=0;s:=0;s1:=0;
       for i:=1 to n do 
              begin
                     write('Nhap phan tu thu ',i,': '); readln(a[i]);
                     if a[i] mod 2=0 then s:=s+a[i];
                     if a[i] mod 2=1 then begin s1:=s1+a[i]; d:=d+1; end;
              end;
       write('Gia tri cac phan tu: ');
       for i:=1 to n do write(a[i],' '); writeln;
       writeln('Tong cac phan tu chan: ',s);
       writeln('Tong cac phan tu le: ',s1);
       write('Co ',d,' phan tu la so le');
       readln;
end.