import Control.Monad
import Data.List

main :: IO ()
main = do
  n <- readLn :: IO Int
  ns <- replicateM n readLn :: IO [Int]
  print $ solve ns

solve :: [Int] -> Int
solve = length .
        filter ((/= 0) . (`mod` 2) . length) .
        group . sort
