1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | DATA 2, 3, -8DATA 6, -3, 4DIM M(3, 2)CLS ' Считаем матрицу в массив FOR iy = 1 TO 2: FOR ix = 1 TO 3 READ M(ix, iy) NEXT: NEXT ' Во 2 и 3 столбце умножим на 3 отриц. элем. FOR iy = 1 TO 2: FOR ix = 2 TO 3 IF M(ix, iy) < 0 THEN M(ix, iy) = M(ix, iy) * 3 NEXT: NEXT ' Матрицу на экран FOR iy = 1 TO 2: FOR ix = 1 TO 3 PRINT M(ix, iy); NEXT: PRINT : NEXT |
Тестирование выполнено в программе QB64 ( Скачать )