{* Задача54 *}

REM basic

' Вывести на экран две матрицы одновременно в одном цикле. Матрицы расположить
' рядом друг с другом по горизонтали.


CLS
n = 3
m = 4
Dim M1(n, m), M2(n, m)
       
        PRINT " Исходные матрицы "
RANDOMIZE TIMER
For i = 1 To n
        For j = 1 To m
                M1(i, j) = CInt(RND * 9)
                M2(i, j) = CInt(RND * 6 - 3)
        Next j
Next i


For i = 1 To n
LOCATE i + 1               
        For j = 1 To m
                LOCATE , 3 * j: PRINT M1(i, j);
                LOCATE , 3 * j + 20: PRINT M2(i, j);
        Next j
Next i: PRINT : PRINT


PRINT "M1 отдельно"
For i = 1 To n
        For j = 1 To m
                PRINT M1(i, j);
        Next j
        PRINT
Next i: PRINT

PRINT "M2 отдельно"
For i = 1 To n
        For j = 1 To m
                PRINT M2(i, j);
        Next j
        PRINT
Next i



End