program polygon
  implicit none
  integer              :: n
  integer, allocatable :: l(:)
  read(*,*) n
  allocate(l(n))
  read(*,*) l(:)
  if (sum(l)-2*maxval(l) .gt. 0) then
     write(*,'(a)') 'Yes'
  else
     write(*,'(a)') 'No'
  end if
end program polygon