{* Задача51 *}

REM basic

' Сформировать матрицы А и В одинакового размера. Поменять местами последний столбец матрицы А и первый столбец матрицы В.


CLS

Dim M(4, 5)
       
        PRINT " Исходная матрица {
}RANDOMIZE TIMER
min = 10 ^ 10
For i = 1 To 4
        For j = 1 To 5
            M(i, j) = CInt(RND * 20 - 10)
              If M(i, j) < min Then min = M(i, j): Smin = j   {Номер столбца c min
}            PRINT M(i, j);
        Next j
                PRINT
Next i

PRINT : PRINT "min ="; min; "его столбец"; Smin

For i = 1 To 4
        For j = Smin + 1 To 5
                M(i, j - 1) = M(i, j)
        Next j
Next i

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

End