Определить номер строки с наибольшей суммой элементов матрицы С - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы