Найти сумму наибольших значений столбцов матрицы - VB
Формулировка задачи:
2) Дана действительная матрица А(N,M), в которой все элементы отличны от нуля.
Найти сумму наибольших значений ее столбцов.
Кто может помогите пожалуйста. Заранее СПАСИБО!!!!!!!
Решение задачи: «Найти сумму наибольших значений столбцов матрицы»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim A() As Integer, n As Integer, m As Integer Dim i As Integer, j, max, summ As Integer Randomize 'Иницилизация генератора случайных чисел Me.Cls 'Очищаем форму m = InputBox("Введите число строк", , 10) n = InputBox("Введите число столбцов", , 10) ReDim A(1 To m, 1 To n) ' Размеры матрицы А - m-строк, n-столбцов For i = 1 To m For j = 1 To n A(i, j) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами Print A(i, j); vbTab; Next j Print Next i Print 'собственно поиск For j = 1 To n max = A(i - 1, j) For i = 1 To m If max < A(i, j) Then max = A(i, j) Next i summ = summ + max ' Next j Print summ End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д