Определить номера строк прямоугольной матрицы, хотя бы один из которых равен 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()
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д