{* Задача91 *}

REM basic

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


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
End