Cod sursa(job #165137)

Utilizator LegolasCazacu Iulian Legolas Data 25 martie 2008 15:06:21
Problema Marbles Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.56 kb
var f,g:text;
    max,n,m,i,j,x,y,z,k1,k2:longint;
    b:array[1..64] of integer;
    a:array[0..1000000]of integer;
begin
assign(f,'marbles.in');reset(f);
assign(g,'marbles.out');rewrite(g);
read(f,n,m);
for i:=1 to n do begin
read(f,k1,k2);
a[k1]:=k2;
end;
for i:=1 to m do begin
read(f,x,y,z);
if x=0 then begin a[y+z]:=a[y]; a[y]:=0; end
else if x=1 then begin for j:=1 to 64 do b[j]:=0; for j:=y to z do
if a[j]<>0 then inc(b[a[j]]);
max:=0;
for j:=1 to 64 do
if b[j]>max then max:=b[j];
writeln(g,max);
end;
end;
close(f);
close(g);
end.