Определить индексы наименьших элементов квадратной матрицы над и под главной диагональю - VB
Формулировка задачи:
Дана квадратная матрица размерности NxN. Определить индексы наименьших ее элементов над и под главной диагональю.
Я не знаю, как ее решать(((
Решение задачи: «Определить индексы наименьших элементов квадратной матрицы над и под главной диагональю»
textual
Листинг программы
Private Sub Command1_Click()
Dim a() As Integer
Dim n As Integer
Dim MINnad As Integer
n = InputBox("Кол-во строк и столбцов")
ReDim a(n, n)
For i = 1 To n
Print
For j = 1 To n
a(i, j) = InputBox("Ввод элемента матрицы(" & i & ";" & j & ")")
Print a(i, j);
Next
Next
MINpod = a(2, 1)
For i = 2 To n
For j = 1 To n - 1
If MINpod > a(i, j) Then MINpod = a(i, j): d = i: c = j
Next
Next
Print vbTab
Print "Индекс наименьшего элемента под главной диагональю A("; d; ","; c; ") ="; MINpod
End Sub