Найти сумму наибольших значений строк заданной матрицы - 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

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

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