main = do
    n <- read <$> getLine :: IO Int
    sn <- map read . words <$> getLine :: IO [Int]
    let cnt = foldr (\a b -> (if odd a then 1 else 2) + b) 0 sn

    putStrLn $ if even cnt then "YES" else "NO"