罗马废墟给定程序中,函数FUN的功能是:计算N X N矩阵的主对角线元素和反向对角线元素之和,并作为函数值返回

题目

罗马废墟给定程序中,函数FUN的功能是:计算N X N矩阵的主对角线元素和反向对角线元素之和,并作为函数值返回
注意:要求先累加主对角线元素中的值,软后累加反向对角线的值.例如,若N=3 有下列矩阵 1 2 3
4 5 6
7 8 9

答案

function fun:integer;
for i:=1 to n do;
inc(sum1,a[i,i]);
for j:=1 to n do;
inc(sum2,a[n-i+1,i]);
fun:=sum1-sum2;
end;