Giúp em làm pascal với. bài khó quá

[vie_tetua]

Cho ma trân vuông cấp n

Tính tổng các phần tử ở nửa phần tư phía trên.
Tức là giao nhau của 2 đường chéo sẽ chia hình vuông ra làm 4 tam giác. tính tổng các phần tử của tam giác phía trên. ko tính các phần tử thuộc đường 2 đường chéo
Xin cảm ơn..

[nguyenvannam1510]

Tổng := 0;
đầu := 2;
cuối := n-1;

For i := 1 to (n div 2) do
begin
for j := đầu to cuối do
Tổng := Tổng + a[i, j];
đầu := đầu + 1
cuối := cuối -1
end;


Như này rõ ràng dễ hiểu
Thực ra ko cần biến đầu, cuối vì:
đầu luôn bằng i+1
cuối luôn bằng n - i

ta có chương trình:


Tổng := 0
for i := 1 to n div 2 do
for j := i+1 to (n-i) do
Tổng:= Tổng + a[i]