import Control.Applicative ((<$>))

main = do
  _ <- read <$> getLine :: IO Int
  as <- map read.words <$> getLine :: IO [Int]
  let odd_count = length $ filter odd as
  putStrLn $ if even odd_count then "YES" else "NO"
