{* Задача155 *}

REM basic

' Помогите пожалуйста написать программу: дана квадратная матрица третьего порядка. Увеличить положительные элементы матрицы в 2ой и 3ей строках в 2 раза


DATA -1,2,3
DATA 4,-5,6
DATA 7,8,-9
 CLS
   RESTORE
 For iy = 1 To 3: For ix = 1 To 3
  READ a: PRINT a;
 Next: PRINT : Next: PRINT
   RESTORE
 For iy = 1 To 3: For ix = 1 To 3
  READ a
  If iy > 1 And a > 0 Then a = a + a
  PRINT a;
 Next: PRINT : Next
End