Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали - VB (171335)

Формулировка задачи:

Сформировать произвольно двумерный массив L(9,9). Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали. Вывести полученный массив. Не знаю как найти наибольший элемент именно в строке и как менять местами с элементами диагонали. Помогите, уважаемые :3

Код к задаче: «Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали - VB (171335)»

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

12   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ