program datorii;
type sir=array [0..15000]of longint;
var
s:sir;
f,g:text;
n,m,cod,t,j,v,i,sm:longint;
begin
assign(f,'datorii.in'); reset(f);
assign (g,'datorii.out'); rewrite(g);
read(f,n,m);
for i:=1 to n do read(f,s[i]);
for i:=1 to m do
              begin
              read(f,cod,t,v);
              if cod=1 then begin
                sm:=0;
                for j:=t to v do inc(sm,s[j]); writeln(g,sm)
                            end
                     else
                     s[t]:=s[t]-v;
              end;
close(f); close(g);
end.