program datorii;
var a:array [1..15000] of longint;
    n,m,i,t,v,p,q,s,j:longint;
    f,g:text;
    c:byte;
begin
 assign(f,'datorii.in');
 assign(g,'datorii.out');
 reset(f); rewrite(g);
 readln(f,n,m);
 for i:=1 to n do
  read(f,a[i]);
 readln(f);
 for j:=1 to m do
  begin
     read(f,c);
      case c of
       0:begin
          read(f,t,v);
          a[t]:=a[t]-v;
         end;
        1:begin
          read(f,p,q);
           s:=0;
          for i:=p to q do
          s:=s+a[i];
          write(g,s);
          writeln(g);
        end;
       end;
   readln(f);
  end;
close(f);
close(g);
end.