比赛代码 - COGS

比赛	十一中校庆欢乐赛	评测结果	AAAAAAAAAA
题目名称	求和问题	最终得分	100
用户昵称	苏轼	运行时间	0.818 s
代码语言	Pascal	内存使用	0.24 MiB
提交时间	2014-10-23 18:42:18

显示代码纯文本

var
  i,n,a,b:longint;
  s:array[0..10000]of int64;
begin
  assign(input,'sum.in');
  assign(output,'sum.out');
  reset(input);
  rewrite(output);
  read(n);
  s[0]:=0;
  for i:=1 to n do
    begin
      read(a);
      s[i]:=s[i-1]+a;
    end;
  read(n);
  for i:=1 to n do
    begin
      read(a,b);
      writeln(s[b]-s[a-1]);
    end;
  close(input);
  close(output);
end.