DEFINT A-Z
DIM A(4, 3), S
CLS
' Заполняем матрицу
RANDOMIZE TIMER
FOR iy = 1 TO 3
FOR ix = 1 TO 4
A(ix, iy) = RND * 71 - 35
PRINT A(ix, iy);
NEXT: PRINT
NEXT
' Ищем сумму
FOR iy = 1 TO 3
FOR ix = 1 TO 4
IF ABS(A(ix, iy)) > 17 THEN S = S + A(ix, iy)
NEXT
NEXT
' Выводим результат
PRINT "Summa : "; S
Тестирование выполнено в программе QB64 ( Скачать )