记录编号 78212 评测结果 AAAATTTTTT
题目名称 求和问题 最终得分 40
用户昵称 GravatarTA 是否通过 未通过
代码语言 Pascal 运行时间 7.200 s
提交时间 2013-11-03 17:28:27 内存使用 0.14 MiB
显示代码纯文本
var
 n,l,r:integer;
 i,m:longint;
 a:array[-1..10000] of int64;
begin
 assign(input,'sum.in');
 assign(output,'sum.out');
 reset(input);
 rewrite(output);
 //while not(eof) do
  //begin
   readln(n);
   a[0]:=0;
   for i:=1 to n do
    begin
     read(a[i]);
     inc(a[i],a[i-1]);
    end;
   readln(m);
   for i:=1 to m do
    begin
     readln(l,r);
     writeln(a[r]-a[l-1]);
    end;
  //end;
 close(input);
 close(output);
end.