program polygon
  implicit none
  integer :: n, l(10) = 0
  read(*,*) n
  read(*,*) l(1:n)
  if (2*maxval(l) < sum(l)) then
    write(*,'(a)') "Yes"
  else
    write(*,'(a)') "No"
  end if
end program polygon