import Control.Monad
import Data.Ord
import Data.List

main = do
  n <- readLn :: IO Int
  xs <- replicateM n readLn :: IO [Int]
  print $ length $ filter odd $ map length $ group $ sortBy (comparing Down) xs