1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | CLSRANDOMIZE TIMERn = 3DIM a(n, n)FOR i = 1 TO n: FOR j = 1 TO n a(i, j) = FIX(RND * 101 - 50)NEXT: NEXTFOR i = 1 TO n: FOR j = 1 TO n PRINT a(i, j);NEXT: PRINT: NEXTPRINT STRING$(80, 196)FOR i = 1 TO n: FOR j = 2 TO 3 IF a(i, j) < 0 THEN a(i, j) = a(i, j) - 4NEXT: NEXTFOR i = 1 TO n: FOR j = 1 TO n PRINT a(i, j);NEXT: PRINT: NEXT |
Тестирование выполнено в программе QB64 ( Скачать )