{* Задача46 *}

REM basic

' Посчитать сумму соседей каждого элемента матрицы M. Соседями являются элементы,
' примыкающие к рассматриваемому элементу по горизонтали и вертикали.
' Результат представить fв виде матрицы Ms.


CLS
nn = 3
mm = 4

        
Dim M(0 To nn + 1, 0 To mm + 1), Ms(0 To nn + 1, 0 To mm + 1)
       
        PRINT "Исходная матрица"
For i = 1 To nn         
        For j = 1 To mm
                M(i, j) = j
                PRINT M(i, j);
        Next j
PRINT
Next i

PRINT
        PRINT "Mатрица Ms"
For i = 1 To nn
        For j = 1 To mm
                s = M(i - 1, j) + M(i, j + 1) + M(i + 1, j) + M(i, j - 1)
                Ms(i, j) = s
                PRINT Ms(i, j);
        Next j
PRINT
Next i

End