Матрица 5х5, нахождение максимального элемента главной диагонали

[momentow]

Программа должна находить максимальные элементы главной диагонали двух матриц, затем их складывать. Вот исходник. Как я понимаю глючит функция нахождения макс. элемента.Вот исходник.

program SummaMaxElementov;
uses crt;
const m=5;
type mat=array[1..m,1..m] of real;
var a,b:mat;
i,j,n:integer;
z:real;
procedure vvod(a:mat);
var c:mat; i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
readln(c[i,j]);
end;
Function maxdiagonal(c:mat):real;
var j,i:integer; max:real;
begin
max:=c[1,1];
for i:=2 to n do
for j:=2 to n do
if (i=j) and (c[i,j]>max) then max:=c[i,j];
maxdiagonal:=max;
end;
begin
clrscr;
writeln('Vvedite razmernost matricy');
readln(n);
clrscr;
writeln('Vvedite elementy matricy a');
vvod(a);
writeln('Vvedite elementy matricy b');
vvod(b);
z:=maxdiagonal(a) + maxdiagonal(b);
writeln('Summa maximalnyh elementov glavnoy diagonali =','',z:4:2);
readln;
end.

[Niro]

Что первое бросилось в глаза

for i:=2 to n do
for j:=2 to n do

замените на

for i:=1 to n do
for j:=2 to n do

можите даже написать j:=1, вреда не будет, просто выполнится еще одна операция сравнения

[momentow]

поменял, как вы сказали. все равно выводит, что сумма максимальных элементов равна нулю.

[ArtGrek]

a:=0;
for i:= 1 to n1 do
 if a<mas1[i,i] then a:=mas1[i,i]
b:=0;
for j:= 1 to n2 do
 if b<mas2[j,j] then b:=mas2[j,j];
c:=a+b;

[momentow]

В общем то доделал сам, может кому-нибудь полезно будет.

program SummaMaxElementov;
uses crt;
const m=5;
type matr=array[1..m,1..m] of real;
var a,b:matr; d:array[1..m] of real;
i,j,n:integer;
z,max,max1:real;
procedure vvod(var c:matr);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do begin
write('matr[',i,',',j,']=');
readln(c[i,j]);
end;
end;
function maxdiagonal(a,b:matr):real;
var j,i:integer; max,max1:real; z:real;
begin
max:=-5000;
for i:=1 to n do
for j:=1 to n do begin
if (i=j) and (max<a[i,j]) then max:=a[i,j];
end;
max1:=-5000;
for i:=1 to n do
for j:=1 to n do begin
if (i=j) and (max1<b[i,j]) then max1:=b[i,j];
end;
z:=max+max1;
writeln('Summa maksimalnyh elementov glavnoy diagonali =','',z:4:0);
end;
begin
clrscr;
writeln('Vvedite razmernost matricy');
readln(n);
clrscr;
writeln('Vvedite elementy matricy a');
vvod(a);
writeln('Vvedite elementy matricy b');
vvod(b);
maxdiagonal(a,b);
readln;
end.