program tinhtsoboi2;
uses crt;
var i,n,s:real;
a:array[1..100] of integer;
begin
clrscr;
s:=0;
writeln('nhap so phan tu cua day so A',n); readln(n);
for i:= 1 to n do
begin
write('A[',i,']=');readln(A[i]);
end;
if a[i] mod 2 then
s:=S+1;
writeln('so luong cac so trong day la boi cua 2 la',s);
readln
end.