C6

program cau6;
uses crt;
var i,n,c:integer;
var a:array[1..100] of integer;

begin
 clrscr;c:=0;
 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 inc(c);
  end;
  write('Day so co ',c,' so le');
  readln;
end.