1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | CLSn = 3: m = 4DIM a(n, m)FOR i = 1 TO n: FOR j = 1 TO m PRINT "vvedite a("; i; ","; j; ")" INPUT a(i, j)NEXT: NEXTCLSFOR i = 1 TO n: FOR j = 1 TO m PRINT a(i, j);NEXT: PRINT: NEXTFOR i = 1 TO n: FOR j = 1 TO m IF ABS(a(i, j)) > 17 THEN s = s + a(i, j)NEXT: NEXTPRINT STRING$(80, 196)PRINT "s ="; s |
Тестирование выполнено в программе QB64 ( Скачать )