program bbb
implicit none

integer :: n
integer,allocatable,dimension(:) :: l

read*, n
allocate(l(n))
read*, l

if(sum(l)-maxval(l)>maxval(l)) then
write(*,'(a3)') 'Yes'
else
write(*,'(a2)') 'No'
end if

end program