Определить строку с максимальной и столбец с минимальной суммой элементов, за один проход - VB

Формулировка задачи:

Задача: Дан двумерный массив размером n*m, заполненный случайными числами. Определить в нем строку с максимальной и столбец с минимальной суммой элементов. Задачу решить за один проход. Проблема: как это реализовать в один проход? Накидал код, по нахождения "максимальной" строки, а как сюда всунуть нахождения "минимального" столбца?

Dim NM() As Integer
n = Val(Text1.Text)
m = Val(Text2.Text)
ReDim NM(1 To n, 1 To m)
For i = 1 To n
    For j = 1 To m
        NM(i, j) = Rnd * 100 - 50
    Next j
Next i
 
For i = 1 To n
    For j = 1 To m
        Max = Max + NM(i, j)
    Next j
    
    If Max > max1 Then
        max1 = Max
        k = i
    End If
    Max = 0
Next i

Решение задачи: «Определить строку с максимальной и столбец с минимальной суммой элементов, за один проход»

textual
                            Листинг программы 
                        
                            For i = 1 To n = по всем строкам
    For j = 1 To m = по всем столбцам

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

11 голосов , оценка 3.818 из 5

Похожие ответы