toInt :: String -> Int
toInt = read :: String -> Int

ans :: [Int] -> String
ans l
  | even . length $ filter odd l = "YES"
  | otherwise = "NO"

main = do
  n <- toInt <$> getLine
  a <- map toInt . words <$> getLine
  putStrLn $ ans a
