比赛代码 - COGS

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

显示代码纯文本

program cojs36;
var
  s,a:array[0..10010]of longint;
  l,r,m,n,i:longint;

begin
assign(input,'sum.in');reset(input);
assign(output,'sum.out');rewrite(output);

  readln(n);
  for i:=1 to n do
  begin
    read(a[i]);
    s[i]:=s[i-1]+a[i];
  end;
  readln;
  readln(m);
  for i:=1 to m do
  begin
    readln(l,r);
    writeln(s[r]-s[l-1]);
  end;

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