program main
implicit none
integer :: n
integer , allocatable :: l(:)

read(*,*) n
allocate(l(n))
read(*,*) l
call bubble(n,l)
if(l(n) < sum(l(1:n-1)) )then
   write(*,'(a3)') 'Yes'
else
   write(*,'(a2)') 'No'
end if

stop
contains
  subroutine bubble(n,array)
    implicit none
    integer , intent(in) :: n
    integer , intent(inout) :: array(n)
    integer :: i, j
    integer :: t

    do i = 1, n-1
       do j = i+1 , n
          if(array(i).gt.array(j))then
             t = array(i)
             array(i) = array(j)
             array(j) = t
          end if
       end do
    end do
  end subroutine bubble



end program main
