main = do
  getLine
  li <- getLine
  let as = map read $ words li
  print $ compute as

compute :: [Int] -> Int
compute as = length $ filter odd $ eachother as

eachother (x:xs) = x : eachother (drop 1 xs)
eachother [] = []
