1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | DEFINT A-ZDIM 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 ( Скачать )