作业帮 > 综合 > 作业

用Pascal语言:输入4×4方阵,分别求两条对角线上元素之和.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/01 09:10:29
用Pascal语言:输入4×4方阵,分别求两条对角线上元素之和.
var a:array[1..4,1..4]of integer; n,i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);
s:=0;
for i:=1 to 4 do
inc(s,a[i,i]+a[i,n+1-i]);
writeln('Sum=',s);
end.