main = do
    getLine
    as_ <- return . map read . words =<< getLine
    let
	countPart [] result = result
	countPart (i:is) (ev,od)
	  | even i			= countPart is (ev+1,od)
	  | otherwise			= countPart is (ev,od+1)
	(evCount, odCount) = countPart as_ (0,0)
    putStr $ if odd odCount
		then "NO"
		else "YES"