main = do
    _ <- getLine
    xs <- map read . words <$> getLine
    print $ solve xs

solve :: [Int] -> Int
solve xs = abs (o - e)
    where o = length $ filter odd xs
          e = length $ filter even xs