program oh;
uses dos;
var i,c1,c2,c3,n,m,j:integer;
     s:longint;
     f,f2:text;
     d:array[1..2000] of longint;

begin

assign(f,'datorii.in');
assign(f2,'datorii.out');
reset(f); rewrite(f2);
read(f,n,m);
for i:=1 to n do
  read(f,d[i]);

for i:=1 to m do
  begin
    s:=0;
    read(f,c1,c2,c3);
    if c1=0 then
      begin
        d[c2]:=d[c2]-c3;
      end;
    if c1=1 then
      begin
        for j:=c2 to c3 do
          s:=s+d[j];
        writeln(f2,s);
      end;
  end;

close(f);close(f2);
exit;
end.