m = 4 'stolbci
n = 3 'stroki
DIM A(m, n) AS DOUBLE
CLS
RANDOMIZE TIMER
' Заполняем матрицу случ. числами.
FOR iy = 1 TO n: FOR ix = 1 TO m
A(ix, iy) = RND * 51 - 25
PRINT USING "+##.### "; A(ix, iy);
NEXT: PRINT : NEXT: PRINT
' Считаем сумму
FOR iy = 1 TO n: FOR ix = 1 TO m
IF ABS(A(ix, iy)) > 17 THEN S = S + A(ix, iy)
NEXT ix, iy
PRINT "Summa :", S
Тестирование выполнено в программе QB64 ( Скачать )