Cod sursa(job #110118)
Utilizator | Dutescu Radu Alin tiger_10 | Data | 25 noiembrie 2007 18:05:19 |
---|---|---|---|
Problema | Datorii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.46 kb |
var a:array[1..150] of longint;
n,m,i,j,k,h,l,s:longint;
f,g:text;
begin
assign(f,'datorii.in');
assign(g,'datorii.out');
reset(f);
rewrite(g);
read(f,n);
readln(f,m);
for i:=1 to n do
read(f,a[i]);
readln(f);
while m>0 do begin
dec(m);
read(f,k);
read(f,j);
readln(f,h);
if k=0 then a[j]:=a[j]-h else
begin
s:=0;
for l:=j to h do
s:=s+a[l];
writeln(g,s);
end;
end;
close(f);
close(g);
end.