Определить номера строк прямоугольной матрицы, хотя бы один из которых равен k - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Необходимо составить программу (консольное приложение). Определить номера строк прямоугольной матрицы (двумерный массив), хотя бы один которых равен k.

Решение задачи: «Определить номера строк прямоугольной матрицы, хотя бы один из которых равен k»

textual
Листинг программы
        Dim numbers = New Integer(,) {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}, {10, 11, 12}, {13, 5, 15}}
        Dim k As Integer, s As String = ""
        Console.Write("Введите К: ")
        k = Console.ReadLine()
        For i = 0 To UBound(numbers, 1)
            Console.Write(i + 1 & ": ")
            For j = 0 To UBound(numbers, 2)
                If numbers(i, j) = k Then
                    s &= i + 1 & " "
                End If
                Console.Write(numbers(i, j) & vbTab)
            Next
            Console.WriteLine()
        Next
        Console.WriteLine("Строки содержат хотябы одно К: " & s)
        Console.ReadKey()

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы