Найти сумму наибольших значений строк заданной матрицы - VB
Формулировка задачи:
Прошу помощи.
Задача: "Дана действительная матрица размером n x m. Найти сумму наибольших значений её строк.
Написал код для ввода матрицы, что делать дальше ума не приложу.
Заранее благодарен
Решение задачи: «Найти сумму наибольших значений строк заданной матрицы»
textual
Листинг программы
Module Module1 Sub Main() Dim a(,), b(), n, m, i, j, max, sum As Integer Dim s As String = "" n = Val(InputBox("Введите кол-во строк", , 4)) m = Val(InputBox("Введите кол-во столбцов", , 5)) ReDim a(n - 1, m - 1), b(m - 1) Randomize() For i = 0 To n - 1 For j = 0 To m - 1 a(i, j) = Int(Rnd() * 20) b(j) = a(i, j) s &= CStr(a(i, j)) + vbTab Next max = b(0) For j = 1 To m - 1 If max < b(j) Then max = b(j) Next sum += max s &= " max=" & CStr(max) & vbCrLf Next MsgBox(s & "Сумма максимальных = " & sum) End Sub End Module
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д