4817:【一维数组】元素求和 分数: 1

题目描述

对于一个有N（N<1000）个元素的数组进行K（K<2100）次区间求和。

输入格式

第一行：一个正整数N

第二行：N个正整数，表示数组中的N个元素，每个整数不超过10000，数值之间用一个空格分隔。

第三行：一个正整数K，表示进行K次区间求和。

接下来K行：每行两个整数i和j，表示计算第i个数组元素到第j个数组元素的和，包括第i个和第j个。

输出

共K行，每行对应一次求和的结果。

样例输入

10
1 2 3 4 5 6 7 8 9 10
3
1 3
1 5
6 10

样例输出

6
15
40
program p4817;

var a:array[1..10000] of integer;
    i,n,j,b,k,m,s,h:longint;
    d:char;
begin
 readln(n);
 for i:=1 to n do
  begin
   read(b,d);
   a[i]:=b;
  end;
  readln(k);
  for j:=1 to k do
   begin
    read(m,d,h);
    s:=0;
    for i:=m to h do
     s:=s+a[i];
    writeln(s);
   end;
end.