结果错误太多,直到比赛结束也没有打完程序。
比赛结束之后,™旁边的大神来了一句:“第二题(本题)好水,裸的前缀和!”
心中顿时一万只羊驼奔驰而过。
所以五千多byte的线段树全部废掉,后来一打听,还有一人与我同病相怜。
看到这篇博客的童鞋不要犯同样sb的错误。
为了延续人类copy标程的好习惯,请往下看
标程:
var
a:array [0..100000] of longint;
n,m,i,x,y:longint;
begin
assign(input,'sum.in'); reset(input);
assign(output,'sum.out'); rewrite(output);
readln(n,m);
for i:=1 to n do
begin read(x); a[i]:=a[i-1]+x; end;
for i:=1 to m do
begin readln(x,y); writeln(a[y]-a[x-1]); end;
close(input); close(output);
end.