【noip2010】[NOIP2010]机器翻译描述Description小晨的电脑上安装...
答案:2 悬赏:40 手机版
解决时间 2021-03-01 15:31
- 提问者网友：呐年旧曙光
- 2021-03-01 09:00
【noip2010】[NOIP2010]机器翻译描述Description小晨的电脑上安装...
最佳答案
- 五星知识达人网友：街头电车
- 2021-03-01 09:26
【答案】 var
m,n,h,r,x,i,ans:longint;
a:array[0..1000]of boolean;
eq:array[0..1000]of longint;
begin
readln(m,n);
fillchar(a,sizeof(a),true);
h:=1;
r:=0;
ans:=0;
for i:=1 to n do
begin
read(x);
if a[x] then
begin
if r+1-h=m then
begin
a[eq[h]]:=true;
inc(h);
end;
inc(r);
eq[r]:=x;
a[x]:=false;
inc(ans);
end;
end;
writeln(ans);
readln;
readln;
end.
m,n,h,r,x,i,ans:longint;
a:array[0..1000]of boolean;
eq:array[0..1000]of longint;
begin
readln(m,n);
fillchar(a,sizeof(a),true);
h:=1;
r:=0;
ans:=0;
for i:=1 to n do
begin
read(x);
if a[x] then
begin
if r+1-h=m then
begin
a[eq[h]]:=true;
inc(h);
end;
inc(r);
eq[r]:=x;
a[x]:=false;
inc(ans);
end;
end;
writeln(ans);
readln;
readln;
end.
全部回答
- 1楼网友：猎心人
- 2021-03-01 11:03
正好我需要
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯