Определить номер строки с наибольшей суммой элементов матрицы С - VB
Формулировка задачи:
Определить номер строки с наибольшей суммой элементов матрицы С размерности n*l.
помогите написать код программыыы((
Решение задачи: «Определить номер строки с наибольшей суммой элементов матрицы С»
textual
Листинг программы
Private Sub Command1_Click() Dim n!, L!, max#, i_max!, summ# n = InputBox("N", , 5) L = InputBox("L", , 7) ReDim mas(n - 1, L - 1) max = -1000 t = "" For i = 0 To n - 1 summ = 0 For j = 0 To L - 1 mas(i, j) = Fix(Rnd(1) * 20 - 5) summ = summ + mas(i, j) t = t & mas(i, j) & vbTab Next If summ > max Then max = summ: i_max = i t = t & vbCrLf Next Text1 = t 'для text1 MultiLine должен быть true MsgBox "Строка " & i_max & ", сумма " & max End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д