type vector=array [0..15000] of integer;

procedure modif(p,q,n:longint; var v,s:vector);
var i,j:longint;
begin
 readln(p,q);
 dec(v[p],q);
 for i:=p to n do dec(s[i],q);
end;

var n,m,i,j,l,p,q:longint;
    v,s:vector;
begin
 assign(input,'datorii.in'); reset(input);
 assign(output,'datorii.out'); rewrite(output);
  readln(n,m);
  for i:=1 to n do begin
   read(v[i]); s[i]:=s[i-1]+v[i];
  end;
  readln;
  for i:=1 to m do begin
   read(l);
   if l=0 then begin
    modif(p,q,n,v,s);
   end
          else begin
    readln(p,q);
    writeln(s[q]-s[p-1]);
   end;
  end;
 close(input); close(output);
end.