DATA 2, 3, -8
DATA 6, -3, 4
DIM 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 ( Скачать )