
--{-# LANGUAGE StandaloneDeriving #-}
--{-# LANGUAGE BangPatterns #-}

module Main where

import Debug.Trace
--import Data.List
--import Data.Char
--import qualified Data.Set.Strict as Set
--import qualified Data.Map.Strict as Map

main :: IO ()
main = do
  getLine
  a <- map read . words <$> getLine
  --a `traceShow`
  print $ solve a

solve :: [Int] -> Int
solve a = length . filter (\(i, ai) -> i `mod` 2 == 1 && ai `mod` 2 == 1) . zip [1..] $ a
