Public Class Compiler
    Shared Sub Main()
        Dim n As Integer = Integer.Parse(Console.ReadLine())
        Dim input As String() = Console.ReadLine().split(" ")
        Dim ls(0 To n - 1) As Integer
        Dim lMax As Integer = 0
        Dim lSum As Integer = 0
        For i As Integer = 0 To n - 1
            ls(i) = Integer.Parse(input(i))
            If ls(i) > lMax Then lMax = ls(i)
            lSum += ls(i)
        Next
        Dim output As String = "No"
        If lMax < lSum - lMax Then output = "Yes"
        Console.WriteLine(output)
    End Sub
End Class
