import Data.List

main = do
 getLine
 xs <- map read . words <$> getLine
 let (o,e) = partition odd xs
 print $ abs (length o - length e)