Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента - VB
Формулировка задачи:
Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента. Размерность матрицы произвольная.
Подскажите, что не так?
Решение задачи: «Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента»
textual
Листинг программы
Private Sub Command1_Click() Dim i As Integer, j As Integer, m As Integer, n As Integer, k As Integer, q As Integer Dim a() As Single, max As Integer m = InputBox("Ââåäèòå êîëè÷åòñâî ñòðîê Г¬Г*òðèöû") n = InputBox("Ââåäèòå êîëè÷åñòâî ñòîëáöîâ Г¬Г*òðèöû") ReDim a(1 To m, 1 To n) For i = 1 To m For j = 1 To n a(i, j) = InputBox("a(" & i & " , " & j & ")") Next j Next i Print Spc(4); "ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:" For i = 1 To m Print For j = 1 To n Print a(i, j); Next j Next i max = a(1, 1) For i = 1 To m For j = 1 To n If a(i, j) > max Then max = a(i, j) End If Next j Next i For i = 1 To m For j = 1 To n If i = j Then a(i, i) = max End If Next Next Print Spc(4); "ÐåçóëüòГ*ГІ:" For i = 1 To m Print For j = 1 To m Print a(i, j); Next Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д