Program BTH;
uses crt;
var a:array [1..100] of integer;
n, i: integer;
chan: integer;
begin
clrscr;
write('Nhap so phan tu co trong mang: '); readln(n);
for i:=1 to n do
begin
write('Nhap vao phan tu thu A[',i,']: '); readln(A[i]);
end;
chan:=0;
for i:=1 to n do
begin
if (A[i] mod 2 = 0) then
chan:=chan+1;
end;
writeln('So luong so chan co trong day la: ',chan);
readln;
end.

Program FNG;
Uses crt;
Var A: array[1..100] of longint;
    i,s: longint;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 100 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 2 = 0 then inc(s);
        End;

        Write('Co ',s,' so chan');
        Readln
End.