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
Тестирование выполнено в программе QB64 ( Скачать )