Составте программу, меняющую значение элемента матрицы на сумму окружающих его элементов

n = 9
m = n
 
DIM a(1 TO n, 1 TO m), b(1 TO n, 1 TO m)
 
PRINT "Matrica a:"
FOR i = 1 TO n
    FOR j = 1 TO m
        a(i, j) = INT(RND * 100) - 50
    NEXT j
NEXT i
 
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT USING "###   "; a(i, j);
    NEXT j
    PRINT
NEXT i
PRINT
 
mm = m
PRINT "Matrica b:"
FOR i = 1 TO n
    FOR j = 1 TO m
        IF j > 1 AND j < mm THEN
            b(i, j) = a(i, j + 1) + a(i, j - 1)
        END IF
        IF j = 1 THEN
            b(i, j) = a(i, j + 1)
        END IF
        IF j = mm THEN
            b(i, j) = a(i, j - 1)
        END IF
        PRINT USING "###   "; b(i, j);
    NEXT j
    PRINT
NEXT i
PRINT
PRINT
 
END

DEFINT A-B, I-J, N
n = 10
DIM a(1 TO 10)
DIM b(11)
CLS
ERASE b
FOR i = 1 TO 10
   FOR j = 1 TO 10
      a(i, j) = INT(20 * RND)
      b(i, j) = a(i, j)
   NEXT j
NEXT i
FOR i = 1 TO 10
   FOR j = 1 TO 10
      a(i, j) = b(i - 1, j - 1) + b(i - 1, j) + b(i - 1, j + 1) + b(i, j - 1) + b(i, j + 1) + b(i + 1, j - 1) + b(i + 1, j) + b(i + 1, j + 1)
   NEXT j
NEXT i
END