{* Задача48 *}

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 j = 1 To 4
        For i = 1 To 3
               If M(i, j) Mod 2 = 0 And M(i, j)  0 Then n = n + 1
        Next i
          If n > max Then max = n: StMax = j
          If n < min Then min = n: StMin = j
          n = 0
Next j

PRINT " max-столбец"; StMax
PRINT " min-столбец"; StMin
PRINT
        
For i = 1 To 3
        SWAP M(i, StMax), M(i, StMin)
Next i
     
      PRINT "Измененная матрица"
For i = 1 To 3
        For j = 1 To 4
                PRINT M(i, j);
        Next j
                PRINT
Next i
End