program answer
  implicit none
  integer :: N, i, count
  integer, allocatable :: a(:)
  read(*,*) N
  allocate(a(N))
  read(*,*) a

  count=0
  do i = 1, N, 2
     if(mod(a(i),2)==1) then
        count=count+1
     end if
  end do

  write(*,*) count
  deallocate(a)
  stop
 end program answer