比赛代码 - COGS

比赛	十一中校庆欢乐赛	评测结果	AAAAAAAWWW
题目名称	求和问题	最终得分	70
用户昵称	传奇	运行时间	0.542 s
代码语言	Pascal	内存使用	0.55 MiB
提交时间	2014-10-23 18:53:41

显示代码纯文本

program cojs36;
var
  a:array[0..100000] of longint;
  i,j,k,m,n,l,r:longint;
begin
  assign(input,'sum.in');
  assign(output,'sum.out');
  reset(input);
  rewrite(output);

  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
      readln(l,r);
      writeln(a[r]-a[l-1]);
    end;

  close(input);
  close(output);
end.