main :: IO ()
main = interact $ show . solve . map read . tail . words

solve :: [Int] -> Int
solve xs = abs $ length ys - length zs
    where
        ys = filter odd  xs
        zs = filter even xs