Module _20190422

    Sub Main()

        Dim iLineCount As Integer = Console.ReadLine()

        Dim iLength() As String = Console.ReadLine().Split(" ")

        '大きい順に並べるバブルソート
        For i As Integer = 0 To iLineCount - 1

            For j As Integer = iLineCount - 1 To i + 1 Step -1

                If iLength(j) > iLength(j - 1) Then

                    Dim iTemp As String = iLength(j)
                    iLength(j) = iLength(j - 1)
                    iLength(j - 1) = iTemp

                End If

            Next

        Next

        Dim iLongest As Integer = iLength(0)

        Dim iTotal As Integer = 0

        For k As Integer = 1 To iLineCount - 1

            iTotal = iTotal + iLength(k)

        Next

        If iLongest < iTotal Then

            Console.WriteLine("Yes")

        Else

            Console.WriteLine("No")

        End If

    End Sub

End Module