Вычитание из матрицы Опции

[Pirate]

Возможно ли в Delphi отнять от еденичной матрицы имеющуюся?

Например:

100
010 - a[i,j]
001

Я думаю делать так если элемент равен главному тогда отнимаем от еденицы если нет то от нуля этот элемент
Но дело в том, как определить элементы по главной диагонали?

В математике не силён а когда математика + Delphi то вообще незнаю что делать.

[мисс_граффити]

for i:=0 to n-1 do
  for j:=0 to n-1 do
    if i=j then
      b[i,j]:=1-a[i,j]
    else
      b[i,j]:=-a[i,j];

это?

[Pirate]

Да вот это мне и нужно было огромное спасибо!