main::IO()
main =do
  _<-getLine
  dc<-getLine
  let dat = map read (words dc) ::[Int]
  putStr ((if (solver dat) then "YES" else "NO")++"\n")
  
solver::[Int]->Bool
solver xs =  if mod (sum (map (\ x -> mod x 2) xs)) 2 == 1 then False else True