program datorii;
var f,g:text;
    n:word;
    m,p1,p2,i:longint;
    a:array[1..15000] of longint;
    op:byte;

procedure achita(z:word;s:longint);
begin
  a[z]:=a[z]-s;
end;

function suma(l1,l2:word):longint;
var s:longint;
    k:word;
begin
  s:=0;
  for k:=l1 to l2 do
    s:=s+a[k];
  suma:=s;
end;

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
        achita(p1,p2)
      else
        writeln(g,suma(p1,p2));
    end;
  close(f);
  close(g);
end.