program magazin;
var f,g:text;
    n,k,m,i,b,t,v,y:longint;
    a:array[1..10000] of word;
begin
assign(f,'datorii.in'); reset(f);
assign(g,'datorii.out'); rewrite(g);
readln(f,n,m);
for i:=1 to n do
              read(f,a[i]);
for i:=1 to m do
              begin
              readln(f,b,t,v);
              if b=0 then
                     begin
                     a[t]:=a[t]-v;
                     end;
              if b=1 then
                     begin
                     k:=0;
                     for y:=t to v do
                                   k:=k+a[y];
                     writeln(g,k);
                     end;
              end;
close(f); close(g);
end.