Заменить значения элементов, расположенных на побочной диагонали, на максимальное значение матрицы - VB
Формулировка задачи:
Разработать информационную технологию позволяющую заменить значени, элементов расположенных на побочной диагонали, на максимальное значение элемента этой же матрицы.Размерностьт произвольная.
null
Подскажите где ошибка???
Решение задачи: «Заменить значения элементов, расположенных на побочной диагонали, на максимальное значение матрицы»
textual
Листинг программы
Private Sub Command1_Click()
Dim n, a(), k As Integer
m = InputBox("ВВедите размерность матрицы")
ReDim a(1 To m, 1 To m)
For i = 1 To m
For j = 1 To m
a(i, j) = Int(Rnd * 10) ' InputBox("a(" & i & " , " & j & ")")
Next
Next
Print "исходный массив"
For i = 1 To m
For j = 1 To m
Print Tab(3 * j); a(i, j);
Next
Print ""
Next
Print ""
k = a(1, 1)
For i = 1 To m
For j = 1 To m
If a(i, j) < k Then
k = a(i, j)
End If
Next
Next
For i = 1 To m
a(m + 1 - i, i) = k
Next
Print "min значение матрицы A "; k
Print ""
Print "преобр. массив"
For i = 1 To m
For j = 1 To m
Print Tab(3 * j); a(i, j);
Next
Print ""
Next
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д