program max
implicit none
integer N
integer L(100)
integer mx
integer i,j,x


read *, N
do i = 1,N
 read *, L(i)
end do

 mx=L(1)
do i =1,N
if(mx < L(i+1))then
 mx=L(i+1)
else if(mx > L(i+1))then
 mx=mx
endif
end do

do i=1,N
if(mx==L(i)) cycle
x=L(i)+x
end do


if(mx<x)then
Write(*,*) 'Yes'
else 
Write(*,*) 'No'
end if

end program 