program main
  implicit none
  
  integer :: n,i,j,a(10) = 0,t,s=0
  
  read(*,*)n
  read(*,*)(a(i), i = 1, n)
  do i=1,N-1
     do j=i+1,N
        if(a(i) .gt. a(j))then
           t=a(i)
           a(i)=a(j)
           a(j)=t
        end if
     end do
  end do
  
  do i = 2, n
    s = s + a(i)
  end do
  
  if (a(1) < s) then
    write(*,*)'Yes'
  else
    write(*,*)'No'
  end if
end program main