import Control.Applicative

main :: IO ()
main = getLine >> solve <$> f >>= print
  where
    f = map read <$> words <$> getLine

solve :: [Int] -> Int
solve = f 0
  where
    f ct (x:_:xs)
      | odd x = f (ct + 1) xs
      | otherwise = f ct xs
    f ct [x]
      | odd x = ct + 1
      | otherwise = ct
    f ct [] = ct
