Question

How to find all elements (leaders) in an array that are greater than all elements to their right in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub PrintArrayLeaders(ByVal arr As Integer())
        Dim size As Integer = arr.Length

        For i As Integer = 0 To size - 1
            Dim j As Integer
            For j = i + 1 To size - 1
                If arr(i) <= arr(j) Then
                    Exit For
                End If
            Next

            If j = size Then
                Console.Write(arr(i) & " ")
            End If
        Next
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim arr As Integer() = New Integer() {1, 99, 16, 5, 75, 9, 50, 60, 0, 19}

        PrintArrayLeaders(arr)
    End Sub
End Class




' run:
'
' 99 75 60 19
'

 

70+ SQL courses for beginners and professionals