Program BTT;
Uses crt;
Var A: array[1..100] of qword;
i,d: byte;
Begin
Clrscr;
d:=0;
For i:=1 to 100 do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i] mod 2 = 0 then inc(d);
End;
Write('Mang vua nhap: ');
For i:=1 to 100 do Write(A[i],' ');
Writeln;
Write('Co ',d,' so chan');
Readln
End.
uses crt;
var a:array[1..100]of integer;
i,d:integer;
begin
clrscr;
for i:=1 to 100 do
begin
write('A[',i,']='); readln(a[i]);
end;
d:=0;
for i:=1 to n do
if a[i] mod 3=0 then d:=d+1;
writeln(d);
readln;
end.