var a:array[0..15000]of longint;
    n,m:longint;

function suma(x,y:longint):longint;
begin
 suma:=a[y]-a[x-1];
end;

procedure scadere(x,y:longint);
var i:longint;
begin
 for i:=x to n do a[i]:=a[i]-y;
end;

procedure citire;
var i,k,p,z:longint;f,t:text;
begin
 assign(f,'datorii.in');
 reset(f);
 assign(t,'datorii.out');
 rewrite(t);
 readln(f,n,m);
 a[0]:=0;
 for i:=1 to n do begin read(f,k); a[i]:=a[i-1]+k; end;
 readln(f);
 for i:=1 to m do
  begin
   readln(f,k,p,z);
   if k=0 then scadere(p,z) else writeln(t,suma(p,z));
  end;
 close(t);
 close(f);
end;


begin
 citire;
end.