Cod sursa(job #33438)

Utilizator dorinelburiceanu dorin gabriel dorinel Data 19 martie 2007 13:26:15
Problema Datorii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.63 kb
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.