{* Задача147 *}

REM basic

' Дана матрица из 3 строк и 4 столбцов. Найти сумму элементов этой матрицы по абсолютной величине больших 17.


CLS
n = 3: m = 4
Dim a(n, m)
For i = 1 To n: For j = 1 To m
        PRINT "vvedite a("; i; ","; j; ")"
        INPUT a(i, j)
Next: Next
CLS
For i = 1 To n: For j = 1 To m
        PRINT a(i, j);
Next: PRINT: Next
For i = 1 To n: For j = 1 To m
        If ABS(a(i, j)) > 17 Then s = s + a(i, j)
Next: Next
PRINT String$(80, 196)
PRINT "s ="; s
End