zadach55.BAS

{* Задача55 *}

REM basic

' Ввести матрицу по столбцам


CLS

Dim M(3, 4)
        
For j = 1 To 4
        For i = 1 To 3
            PRINT "Столбец "; j; "Строка "; i; : INPUT M(i, j)
        Next i
Next j: PRINT
        
         PRINT "Введенная матрица "
For i = 1 To 3
        For j = 1 To 4
                PRINT M(i, j);
        Next j
        PRINT
Next i

End