比赛 十一中校庆欢乐赛 评测结果 AAAAAAAWWW
题目名称 求和问题 最终得分 70
用户昵称 safhsdajkfhsad 运行时间 0.523 s
代码语言 Pascal 内存使用 0.24 MiB
提交时间 2014-10-23 18:57:04
显示代码纯文本
const
  maxnum=10010;
var
  n,m,i,le,ri,vans:longint;
  data:array[0..maxnum] of longint;
  daqianzhui:array[0..maxnum] of longint;

begin
  assign(input,'sum.in');
  reset(input);
  assign(output,'sum.out');
  rewrite(output);
  readln(n);
  fillchar(daqianzhui,sizeof(daqianzhui),0);
  for i:=1 to n do
    begin
      read(data[i]);
      daqianzhui[i]:=daqianzhui[i-1]+data[i];
    end;

    readln(m);
  for i:=1 to m do
    begin
      readln(le,ri);
      vans:=0;
      writeln(daqianzhui[ri]-daqianzhui[le-1]);
    end;
  close(input);
  close(output);
end.