integer N
integer,allocatable,dimension(:)::A
integer oddcnt,evencnt
read*,N
allocate(A(N))
read*,A

oddcnt=0
do i=1,N
  if(and(A(i),1)==1)oddcnt=oddcnt+1
end do
evencnt=N-oddcnt
print"(A)",merge("YES"," NO",mod(oddcnt,2)==0 .and. mod(evencnt+oddcnt/2,2)==0)
end