program complicaaaaaaaaaat;
var f:text;
    i,n,m,s,j:integer;
    a,c1,c2,c3:array[1..20] of integer;

begin

assign(f,'datorii.in');
reset(f);

read(f,n);read(f,m);

for i:=1 to n do
  read(f,a[i]);

for i:=1 to m do
  begin
    read(f,c1[i]);
    read(f,c2[i]);
    read(f,c3[i]);
  end;

close(f);

assign(f,'datorii.out');
rewrite(f);

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

close(f);

end.