Imports System
Public Class Program
Private Shared Function isRowSorted(ByVal matrix As Integer(,), ByVal row As Integer) As Boolean
Dim cols As Integer = matrix.GetLength(1)
For i As Integer = 1 To cols - 1
If matrix(row, i - 1) > matrix(row, i) Then
Return False
End If
Next
Return True
End Function
Public Shared Sub Main(ByVal args As String())
Dim matrix As Integer(,) = {
{ 1, 2, 3, 4, 0},
{-5, -4, 0, 8, 9},
{ 2, 100, 8, 100, 3},
{ 1, 7, 100, 9, 6},
{ 9, 10, 11, 12, 13}
}
Console.WriteLine("Row 0: " & isRowSorted(matrix, 0))
Console.WriteLine("Row 1: " & isRowSorted(matrix, 1))
Console.WriteLine("Row 2: " & isRowSorted(matrix, 2))
Console.WriteLine("Row 3: " & isRowSorted(matrix, 3))
Console.WriteLine("Row 4: " & isRowSorted(matrix, 4))
End Sub
End Class
' run:
'
' Row 0: False
' Row 1: True
' Row 2: False
' Row 3: False
' Row 4: True
'
