{* Задача68 *}

REM basic

' В двухмерном массиве чисел все отрицательные элементы массива увеличить на среднее арифметическое значение положительных элементов соответствующей строки.


INPUT m
INPUT n
Dim a(1 To m, 1 To n) As Single
For i = 1 To m
  For j = 1 To n
    INPUT a(i, j)
  Next j
Next i
 
PRINT "Исходный массив"
For i = 1 To m
  For j = 1 To n
    PRINT a(i, j);
  Next j
  PRINT
Next i
 
For i = 1 To m
  k = 0
  s = 0
  For j = 1 To n
    If a(i, j) > 0 Then
      s = s + a(i, j)
      k = k + 1
    End If
  Next j
  If k  0 Then
    avg = s / k
  Else
    avg = 0
  End If
  For j = 1 To n
    If a(i, j) < 0 Then a(i, j) = a(i, j) + avg
  Next j
Next
  
PRINT "Обработанный массив"
For i = 1 To m
  For j = 1 To n
    PRINT a(i, j);
  Next j
  PRINT
Next i
End