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.