import           Data.Bool

main :: IO ()
main = do
    getLine
    as <- map read . words <$> getLine
    putStrLn $ solve as

solve :: [Int] -> String
solve = bool "NO" "YES" . even . length . filter odd
