Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали - VB (171335)
Формулировка задачи:
Сформировать произвольно двумерный массив L(9,9). Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали.
Вывести полученный массив.
Не знаю как найти наибольший элемент именно в строке и как менять местами с элементами диагонали. Помогите, уважаемые :3
Решение задачи: «Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim L(1 To 9, 1 To 9) As Integer, xmax(1 To 9) As Integer, nmax(1 To 9) As Integer Dim temp As Integer, i As Integer, j As Integer, k Randomize Cls For i = 1 To 9 For j = 1 To 9 L(i, j) = Int(Rnd * 100) Print vbTab; "L("; i; ","; j; ")="; L(i, j); Next j Print Next i Print For i = 1 To 9 xmax(i) = L(i, 1): nmax(i) = 1 For j = 1 To 9 If L(i, j) > xmax(i) Then xmax(i) = L(i, j): nmax(i) = j Next j Print vbTab; "xmax("; i; ")="; xmax(i) & " nmax("; i; ")="; nmax(i) Next i Print For i = 1 To 9 L(i, nmax(i)) = L(i, i): L(i, i) = xmax(i) Next i For i = 1 To 9 For j = 1 To 9 Print vbTab; "L("; i; ","; j; ")="; L(i, j); Next j Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д