{* Задача47 *}

REM basic

' В матрице M определить и поменять местами строки, обладающие максимальной и минимальной суммой элементов.


CLS

Dim M(3, 4)
       
        PRINT " Исходная матрица {
}RANDOMIZE TIMER
For i = 1 To 3
        For j = 1 To 4
                M(i, j) = CInt(RND * 20 - 10)
                PRINT M(i, j);
        Next j
                PRINT
Next i: PRINT
      

min = 10 ^ 10
max = -10 ^ 10
For i = 1 To 3
        For j = 1 To 4
               s = s + M(i, j)
        Next j
        If s > max Then max = s: Lmax = i   {Номенр max строки
}        If s < min Then min = s: Lmin = i   {Номенр min строки
}        s = 0
Next i

        PRINT " max-строка"; Lmax
        PRINT " min-строка"; Lmin: PRINT
       
        
For j = 1 To 4
        SWAP M(Lmax, j), M(Lmin, j)
Next j

        PRINT " Измененная матрица "
For i = 1 To 3
        For j = 1 To 4
                PRINT M(i, j);
        Next j
                PRINT
Next i

End