Imports System
Class SortedRows
Private Shared Function SortedCount(ByVal matrix As Integer(,)) As Integer
Dim result As Integer = 0
Dim rows As Integer = matrix.GetLength(0)
Dim cols As Integer = matrix.GetLength(1)
For i As Integer = 0 To rows - 1
Dim j As Integer
For j = 0 To cols - 1 - 1
If matrix(i, j + 1) <= matrix(i, j) Then
Exit For
End If
Next
If j = cols - 1 Then
result += 1
End If
Next
For i As Integer = 0 To rows - 1
Dim j As Integer
For j = cols - 1 To 1 step -1
If matrix(i, j - 1) <= matrix(i, j) Then
Exit For
End If
Next
If cols > 1 AndAlso j = 0 Then
result += 1
End If
Next
Return result
End Function
Public Shared Sub Main()
Dim matrix As Integer(,) = {
{1, 2, 3, 4, 5},
{2, 3, 1, 8, 7},
{8, 7, 6, 5, 4},
{5, 7, 8, 9, 10}}
Console.WriteLine("Number of sorted rows: " & SortedCount(matrix))
End Sub
End Class
' run:
'
' Number of sorted rows: 3
'
