program datorii;
var f,g:text;
    n:word;
    m,p1,p2,i,s,j:longint;
    a:array[1..15000] of longint;
    op: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]);
  for i:=1 to m do
    begin
      readln(f,op,p1,p2);
      if op=0 then
        a[p1]:=a[p1]-p2
      else
        begin
          s:=0;
          for j:=p1 to p2 do
            s:=s+a[j];
          writeln(g,s);
        end;
    end;
  close(f);
  close(g);
end.