program main
  implicit none
  integer :: n, i
  integer, allocatable :: l(:)
  read (*, *) n
  allocate (l(n))
  read (*, *) l(:)
  if (maxval(l) * 2 < sum(l)) then
    print "(a)", "Yes"
  else
    print "(a)", "No"
  end if
end program main
