type sir=array[1..15000] of integer;
var f,g:text;
    a:sir;
    n,y,z:integer;
    x:byte;
    m,i:longint;
procedure citeste;
var i,j:integer;
begin
     readln(f,n,m);
     for i:=1 to n do read(f,a[i]);
     readln(f);
end;
function interogare(x,y:integer):longint;
var i:integer;
    s:longint;
begin
     s:=0;
     for i:=x to y do s:=s+a[i];
     interogare:=s;
end;
procedure achitare(t,v:integer);
begin
     a[t]:=a[t]-v;
end;
begin
     assign(f,'datorii.in'); reset(f);
     assign(g,'datorii.out'); rewrite(g);
     citeste;
     for i:=1 to m do
     begin
          readln(f,x,y,z);
          if x=0 then achitare(y,z)
                 else writeln(g,interogare(y,z));
     end;
     close(g);
end.