Question

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

Answer 1

...

for i := 1 to n do

for j := 1 to n do

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

a[i][j] -= sum;

...

Answer 2

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

Answer 3

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

Answer 4

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