Question

pascal 数据块

输入n行m列数据，求出其中某一块数据的和并输出。

【输入说明】
第一行是n、m，以下是n行m列数字矩阵，最后一行是数据块起点、终点的下标。以上所有数字均为整数。
【输出说明】
一个整数。
【输入样例】
3 3
2 4 9
0 7 4
2 8 5
2 1 3 2
【输出样例】
17
输出说明：0+7+2+8=17

注意：数组大小不能超过100，否则服务器要爆。

Answer 1

。。代码短短的。。
如果我说只要两个for循环就可以了，你会骂我么。
下面是代码：
program ex_1(input,output);
var
i,j,n,m,x1,x2,y1,y2:longint;
flat:array[1..100,1..100] of longint;
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do read(flat[i,j]);
readln;
end;
readln(x1,y1,x2,y2);
ans:=0;
for i:=x1 to x2 do
for j:=y1 to y2 do inc(ans,flat[i,j]);
writeln(ans);
end.
代码可能有错，没编译，手打的。
哦，还有数据范围，你看着办吧，如果太大的话。。改一下就好了、

采纳啊！！！！！！！！！

Answer 2

两个for循环
累加数字即可

追问

代码？？！！~~我要代码！

追答

少年，不要太懒

追问

求你了~~就差一道了~~