квадратная матрица порядка n(Pascal)

[Lokost]

Дана действительная квадратная матрица порядка n. Вычислить сумму тех из m элементов, расположенных по главной диагонали и выше неё, которые превосходят по величине все элементы, расположенные ниже главной диагонали. Если элементов с указанным свойством нет, то вывести соответствующее сообщение

[Ol'ga_new]

Попробуй так:

sum:=0;
for j:=1 to n do
begin
i:=0
repeat
i:=i+1;
if a[i][j]>maxz then sum:=sum+a[i][j];
until i=j;
end;
if sum=0 then сообщение

[Lokost]

Сообщение от Ol'ga_new

Попробуй так:

sum:=0;
for j:=1 to n do
begin
i:=0
repeat
i:=i+1;
if a[i][j]>maxz then sum:=sum+a[i][j];
until i=j;
end;
if sum=0 then сообщение

а можно поподробней расписать всю задачу начиная с самого начала?

[Lokost]

Помогите решить!

[Ol'ga_new]

const N=10;{любое число}
var sum,max:real;
i,j,n:integer;
a:array[1..N,1..N]of real;
begin
n:=6;{например 6}
for i:=1 to 6 do
for j:=1 to 6 do
 a[i][j]:=random(100);{один из способов задания матрицы}
maxz:=a[2][1];
for i:=2 to n do
  begin
  j:=0;
  repeat
  begin
  j:=j+1;
  if a[i][j] >maxz then maxz:=a[i][j];
  end
  until (i-1)=j
  end;
{здесь проверили нижнюю часть матрицы и нашли максим. значение}
sum:=0;
for j:=1 to n do
begin
i:=0;
repeat
begin
i:=i+1;
if a[i][j]>maxz then sum:=sum+a[i][j];
end
until i=j;
end;
for i:=1 to n do
begin
for j:=1 to n do
write (a[i][j],' :');
writeln
end;
writeln ('max=', maxz);
writeln('sum=',sum);
readln;
end.