שלום אני צריך עזרה במערכים דו מימדיים ריבועיים(מטריצות)
אני צריך לחשב סכום איברי האלכסון במטריצה ואין לי מושג אז בבקשה כי יש לי מבחן מחר תודה.

מה הבעיה?
מה ניסית לעשות ולא הצלחת?

אני כבר רשמתי מה אני לא הצלחתי לעשות אני לא הצלחתי לחשב סכום איברי מסגרת של מטריצה אז בבקשה תכתבו לי בפסקל

program xxx;
var
a:array[1..5,1..5] of integer;
i,h,sum:integer;
begin
randomize;
sum:=0;
writeln('begin ?... - Press Enter');
readln;
for i:=1 to 5 do
for h:=1 to 5 do
a[i,h]:= random(0+10)+1;
writeln('***********');
writeln('The whole Array...');
for i:=1 to 5 do
begin
for h:=1 to 5 do
write(a[i,h],'|');
writeln;
end;
writeln;
writeln('*************');
writeln('The numbers in the line...');
for i:=1 to 4 do
for h:=1 to 4 do
if (i=h)then
write (a[i,h],'+');
write (a[5,5]);

writeln;
writeln('*****************');
writeln('The line that will be calculated...');
for i:=1 to 5 do
begin
for h:=1 to 5 do
begin
if (i=h) then
begin
write (a[i,h]);
sum:=sum+a[i,h];
end
else
write ('#');
end;
writeln;
end;
writeln('**********');
readln;
write ('The sum is:',sum);
readln;
end.

התרגיל מקומפל...
https://2005-uploaded.fresh.co.il/2...14/60976380.exe

נ.ב
הצבוע באדום זה חישוב האלכסון בלולאה...