program takaku
  implicit none
  integer :: N,i,suml,yn
  integer,allocatable :: L(:)
  read(*,*) N
  allocate(L(N))
  read(*,*) L
  suml=sum(L)
  yn=0
  do i=1,N
     if(L(i).lt.(suml-L(i))) then

     else
        yn=1
     endif
  enddo
  if(yn.eq.1) then
     write(*,'(a)') 'No'
  else
     write(*,'(a)') 'Yes'
  endif

  deallocate(L)



end program takaku
