program datorii;
var a:array[0..15000] of word;
    i,j,m:longint;
    n,p1,p2:word;
    f,g:text;
    op:byte;

begin
  assign(f,'datorii.in');
  reset(f);
  readln(f,n,m);
  a[0] := 0;
  for i:=1 to n do
    begin
      read(f,a[i]);
      a[i] := a[i] + a[i-1];
    end;
  readln(f);
  assign(g,'datorii.out');
  rewrite(g);
  for i:=1 to m do
    begin
      readln(f,op,p1,p2);
      if op = 0 then
        for j:=p1 to n do
          a[j]:=a[j]-p2
      else
        writeln(g,a[p2]-a[p1-1]);
    end;
  close(f);
  close(g);
end.