Заменить каждый из отрицательных элементов матрицы средним арифметическим элементов строки - QBasic

Формулировка задачи:

Составьте программу, заменяющую каждый из отрицательных элементов массива C(N,N) средним арифметическим элементов той строки, в которой этот отрицательный элемент располагается?

Решение задачи: «Заменить каждый из отрицательных элементов матрицы средним арифметическим элементов строки»

Листинг программы

for i=1 to n 
s=0
for j=1 to n
s=s+c(i,j)
next
for j=1 to n
if c(i,j)<0 then c(i,j)=s/n
next
next

Объяснение кода листинга программы

В данном коде выполняется замена каждого из отрицательных элементов матрицы средним арифметическим элементов строки.

for i=1 to n - выполняется цикл по строкам матрицы от 1 до n.
s=0 - инициализируется переменная s, которая будет использоваться для хранения суммы элементов строки.
for j=1 to n - выполняется цикл по элементам строки от 1 до n.
s=s+c(i,j) - к переменной s прибавляется значение элемента матрицы c(i,j).
for j=1 to n - выполняется цикл по элементам строки от 1 до n.
if c(i,j)<0 then c(i,j)=s/n - если значение элемента c(i,j) отрицательное, то оно заменяется на среднее арифметическое элементов строки, которое равно s/n.
next - переход к следующему элементу строки.
next - переход к следующей строке матрицы.