Pagini recente » Cod sursa (job #1534555) | Cod sursa (job #252684) | Cod sursa (job #1668981) | Cod sursa (job #1522136) | Cod sursa (job #33438)
Cod sursa(job #33438)
program datorii;
type
vector=array[1..15000] of longint;
var n,m,i,j,k:longint;suma:longint;
f,g:text;
datorie:vector;
s1:0..1;s2,s3:integer;
begin
assign(f,'datorii.in');
reset(f);
assign(g,'datorii.out');
rewrite(g);
read(f,n,m);
read(f,datorie[1]);
for i:= 2 to n do begin
read(f,k);
datorie[i]:=datorie[i-1]+k; end;
for j:=1 to m do
begin
read(f,s1,s2,s3);
if s1=0 then
for i:=s2 to n do
datorie[i]:=datorie[i]-s3
else begin
if(s2=1) then suma:=datorie[s3]
else suma:=datorie[s3]-datorie[s2-1];
writeln(g,suma);
end;
end;
close(f);
close(g);
end.