type sir = array[1..1000] of integer;
var a:sir;
    n:integer;
    m:longint;
    f,g:text;

procedure fa;
var i,j:integer;
    x,y,z,s:integer;
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
  read(f,x);
  if (x = 0) then begin
    read(f,y,z);
    a[y]:=a[y]-z;
  end;
  if (x = 1) then begin
    read(f,y,z);
    s:=0;
    for j:=y to z do
      s:=s+a[j];
    writeln(g,s);
  end;
end;
close(g);
end;

begin {pp}
fa;
end.