记录编号 204529 评测结果 AAAAAAAAAA
题目名称 求和问题 最终得分 100
用户昵称 Gravatarlyl610 是否通过 通过
代码语言 Pascal 运行时间 0.846 s
提交时间 2015-11-04 13:43:52 内存使用 0.67 MiB
显示代码纯文本
var
n,m,s,x,y:int64;
i,j:longint;
a,b:array[0..maxint] of int64;
begin
assign(input,'sum.in');reset(input);
assign(output,'sum.out');rewrite(output);
s:=0;
readln(n);
for i:=1 to n do
begin
read(a[i]);
a[i]:=a[i-1]+a[i];
end;
readln(m);
for i:=1 to m do
begin
read(x);
readln(y);
writeln(a[y]-a[x-1]);
end;
close(input); close(output);
end.