比赛 |
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.