Помогите пожалуйста. Нужно написать программу Pascal. Сумму диагонали нашла, а второе условие не знаю как выполнить(

Это сразу после нахождения суммы диагонали вставлять?

Не получается у меня...

Да. Я подумал, что если надена самостоятельно сумма на диагонали, то с этим отрезком кода будет понятно все. Что конкретно не получается? Если с индексами массива, то я написал неверно и нужно писать не a[I][j], но a[I,j].

...

for i := 1 to n do

for j := 1 to n do

if (a[i][j] > sum) then

a[i][j] -= sum;

...