как решить эту задачу? решите её пожалуйста а то я уже пробовал но увы без результатно

[Cyber 10111]

Двумерные массивы:
В матрице Z(6,6) элемент главной диагонали (если он не равен нулю) в каждой строке заменить суммой элементов расположенных справа от него
Все заменяемые элементы главной диагонали вывести в массив B.

[ZX Spectrum-128]

For i:=1 to n do
Begin
If a[i,i]<>0 then
 Begin
  Sum:=0;
  For j:=i to n do
  Sum:=sum+j;
 End;
 A[i,i]:=sum;
End;

Не проверял, могут быть ошибки

[Poma][a]

For j:=i to n do

i+1

Sum:=sum+j;

Мы ищем сумму элементов! А не индекса..

[ZX Spectrum-128]

Спасибо! Тогда цикл по i do n-1. Надо будет исправить.

[Cyber 10111]

А как выглядит правильный код?

[Slym]

как то так и выглядит