比赛 NOIP_1 评测结果 AAAWAATATT
题目名称 画展 最终得分 60
用户昵称 yuan 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-07-23 10:43:31
显示代码纯文本
program a3;
var
f:text; a,b,n,m,ss,i,k,min,sum:longint; ex:array[1..1000000]of integer;
jl:array[0..2000]of boolean;
begin
assign(f,'exhibit.in');
reset(f);
readln(f,n,m);
fillchar(ex,sizeof(ex),0);
for i:= 1 to n do
 read(f,ex[i]);
close(f);
a:=0;b:=0;
min:=n;
for i:=1 to n-m+1 do
 begin
 fillchar(jl,sizeof(jl),false);
 sum:=0;
 k:=i;
 ss:=0;
  repeat
  inc(sum);
   if not (  jl[ex[k]]  ) then
      begin
      jl[ex[k]]:=true;
      ss:=ss+1;
      end;
    if ss=m then begin jl[0]:=true; break; end;
   inc(k);

  until (sum>=min) or (k>n);

 if (sum <min)and (jl[0])

 then
    begin
    min:=sum;
    a:=i;
    b:=k;
    end;
 end;
assign(f,'exhibit.out');
rewrite(f);
writeln(f,a,' ',b);
close(f);
end.