Program Bai_tap;

Uses crt;

Const Nmax = 100;

Var A: array[1..Nmax] of Integer;

       N, i, dem: byte;

Begin

   Clrscr;

   Write(‘ Nhap so luong phan tu n= ’);

   Readln(n);

   For i:=1 to n do

          Begin

                 Write(‘ Phan tu thu ’, i, ’= ’);

                 Readln(A[i]);

          End;

   dem:=0;

      For i:=1 to n do

             If A[i] mod 2 = 0 then dem:=dem+1;

      Writeln(‘ Day so da cho co ’, dem, ’ so chan’);

  Readln

End.                    

Program BTH;
uses crt;
var a:array[1..100] of longint;
i,n,k:byte;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        For i:=1 to n do
        Begin
                write('a[',i,']: ');readln(a[i]);
                If a[i] mod 2=0 then k:=k+1;
        end;
        write('So luong so chan co trong day la: ',k);
        readln;
end.