помогите пожалуйста по двухмерным массивам квадратной матрицы) Pascal
2)В квадратной матрице заменить все положительные эл-ты побочной диагонали нулями
http://www.reshaem.net/?cGFydG5lcj02ODEz
Код:
var
int i, j, sum;
int n; //размерность массива
begin
sum := 0;
for i:=0 to n-1 do //проходим по всем строкам
for j:=0 to i-1 do //но не по всем столбцам, чтобы не залезть за главную диагональ
sum := sum + matr[i][j];
int i, j, sum;
int n; //размерность массива
begin
sum := 0;
for i:=0 to n-1 do //проходим по всем строкам
for j:=0 to i-1 do //но не по всем столбцам, чтобы не залезть за главную диагональ
sum := sum + matr[i][j];
Код:
j := n-1; //начинаем с крайнего правого столбца
for i:=0 to n-1 do //и с верхней строки, по строкам идем сверху вниз
begin
if (matr[i][j] > 0) then matr[i][j] := 0;
dec(j); //а по столбцам справа налево
end;
for i:=0 to n-1 do //и с верхней строки, по строкам идем сверху вниз
begin
if (matr[i][j] > 0) then matr[i][j] := 0;
dec(j); //а по столбцам справа налево
end;