program main
   implicit none
   integer ::n
   integer i,j,ma
   integer,allocatable,dimension(:)::l,summ
   read(*,*)n
   allocate(l(n))
read(*,*)l
   ma=maxval(l)
   if(ma<sum(l)-ma)then
      write(*,"(a3)")"Yes"
   else
      write(*,"(a2)")"No"
   endif
end program main
