1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | m = 4 'stolbcin = 3 'strokiDIM 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 ( Скачать )