главная и побочная диагонали матрицы

[robin39]

Ребят, как посчитать главную и побочную диагональ матрицы?(как осуществить это в delphi&)

[NetSpace]

ну, как-то так...

var a[1..N][1..N]:array of Integer;
     i,j,diag1,diag2:Integer;
diag1:=1;//главная диагональ
for i:=1 to N do for j:=1 to N do if(i=j)then diag1:=diag1*a[i][j];

diag2:=1;//побочная диагональ
for i:=N downto 1 do for j:=1 to N do if(i=N-j-1)then diag2:=diag2*a[i][j];

Writeln(diag1,'   ',diag2);

[Marina93]

здесь ошибочка....там, где ищем побочную ...нужно i=N-j+1, а не -1