program pr2
  implicit none
  integer :: n, i, j
  integer,allocatable :: a(:)
  read(*,*) n
  allocate(a(n))
  read(*,*) a

  j = 0
  do i = 1, n, 2
     if ( mod(a(i),2) == 1 ) then
        j = j + 1
     end if
  end do

  write(*,'(i0)') j
  deallocate(a)
  stop
end program pr2
