Question

编写程序，输入两个数m和n（m>=1,n<=6），然后输入该m行n列矩阵a中的元素，分别求出个元素之和，并输出

Answer 1

program ju;
var a:array[1..100,1..100] of longint;
i,j,ans,m,n:longint;
begin
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
ans:=0;
for i:=1 to m do
for j:=1 to n do
ans:=ans+a[i,j];
writeln(ans);
end.