Матрица и нахождение макс правого угла

[Serheo]

Матрица и нахождение макс правого угла

Приветствую, формучане! Помогите исправить задачу:

program z;
const n=3;
var
a:array [1..n,1..n] of real;
i,j:integer;
max:real;
begin
max:=-10000000;
writeln ('Aaaaeoa iao?eoo ');
for i:=1 to n do
for j:=1 to n do 
begin
read (a[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;
for i:=1 to n do Begin
for j:=1 to n do
write (a[i,j]:8:2);
Writeln;
end;
writeln ('max element=',max:8:2);
readln
end.

Эта задачи ищет макс элемент во всей матрице. Мне нужно чтобы вы испрвили эту задачу так, что бы программа искала макс элемент в правом нижнем углу относительно главной диагонали

 

[Vladimir_S]

та задачи ищет макс элемент во всей матрице. Мне нужно чтобы вы испрвили эту задачу так, что бы программа искала макс элемент в правом нижнем углу относительно главной диагонали

Надеюсь, что это описка, и не относительно главной, а относительно побочной диагонали, идущей из правого верхнего угла в левый нижний. Ежели так, то:
Фрагмент
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;
заменяем
а) если включаем саму диагональ, то
for i:=1 to n do
for j:=n-i+1 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;
б) если не включаем диагональ, то
for i:=2 to n do
for j:=n-i+2 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;