比赛代码 - COGS

比赛	十一中校庆欢乐赛	评测结果	AAAAWWWEWE
题目名称	求和问题	最终得分	40
用户昵称	lyl610	运行时间	2.157 s
代码语言	Pascal	内存使用	0.24 MiB
提交时间	2014-10-23 19:24:48

显示代码纯文本

var
a,b:array[1..10000]of longint;
i,j,m,n,t,x,y:longint;
s:int64;

begin
assign(input,'sum.in');
reset(input);
assign(output,'sum.out');
rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]);
readln;
readln(m);
for i:=1 to m do
begin
s:=0;
readln(x,y);
for j:=x to y do
s:=s+a[j];
inc(t);
b[t]:=s;
end;
for i:=1 to t do
writeln(b[i]);
close(input);
close(output);
end.