Составьте программу, меняющую значение элемента двухмерного массива А(N,N) на сумму окружающих элементов.

CLS
INPUT "n"; n
DIM a(n, n)
PRINT "ishodniy massiv:"
FOR i = 1 TO n: FOR j = 1 TO n
        a(i, j) = INT(20 * RND(1) - 10)
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT "noviy massiv:"
FOR i = 1 TO n: FOR j = 1 TO n
        a(i, j) = a(i, j + 1) + a(i, j - 1)
        a(i, j) = a(i, j) + a(i - 1, j - 1) + a(i - 1, j) + a(i - 1, j + 1)
        a(i, j) = a(i, j) + a(i + 1, j - 1) + a(i - 1, j) + a(i + 1, j + 1)
        PRINT a(i, j);
NEXT: PRINT: NEXT

INPUT "vvedite n"; n
DIM a(n + 1, n + 1)
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT "vvedite a("; i; ","; j; ")";
        INPUT a(i, j)
    NEXT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
PRINT STRING$(80, 196)
INPUT "vvedite koordinati elementa a(i,j)"; i, j
PRINT "a(i, j)="; a(i, j),
a(i, j) = a(i, j) + a(i, j + 1) + a(i, j - 1) + a(i + 1, j) + a(i - 1, j)
PRINT "new="; a(i, j)
PRINT STRING$(80, 196)
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT
    PRINT
NEXT