program Day;
uses crt;
var A:array [1..500] of integer;
      n,i,d: integer;
Begin
         clrscr;
         write('Nhap so phan tu: '); readln(n);
         for i:=1 to n do
         begin
                  write('A[',i,']='); readln(A[i]);
         end;
         write('Day vua nhap: ');
         for i:=1 to n do write(A[i],'  ');
         writeln;
         for i:=1 to n do
              if A[i] mod 2<>0 then d:=d+1;
         write('Co ',d,' so la so le');
         readln
End.