比赛 十一中校庆欢乐赛 评测结果 AAAAAAAAAA
题目名称 求和问题 最终得分 100
用户昵称 helloworld123 运行时间 0.792 s
代码语言 Pascal 内存使用 0.24 MiB
提交时间 2014-10-23 19:12:01
显示代码纯文本
program cogs36;
const
   maxn=10000;
var
l,r,i,j,n,m,x:longint;
sum:array[0..maxn] of int64;
begin
   assign(input,'sum.in'); reset(input);
   assign(output,'sum.out'); rewrite(output);
     readln(n);
     fillchar(sum,sizeof(sum),0);
     for i:=1 to n do
      begin
        read(x);
        sum[i]:=sum[i-1]+x;
      end;
     readln(m);
      for i:=1 to m do
        begin
          readln(l,r);
          writeln(sum[r]-sum[l-1]);
        end;
   close(input); close(output);
end.