Question

TAT 去年NOIP第一题有两个点不过，求大牛解释~谢

我的程序：
var m,n,i,j,s,top,x:integer;
a:array[1..1000] of integer;
flag:boolean;
begin
readln(m,n);
top:=1;
x:=0;
for i:=1 to 1000 do a[i]:=-1;
for i:=1 to n do begin
read(s);
flag:=false;
for j:=1 to m do if a[j]=s then begin
flag:=true;
break;
end;
if (top<m) and (not(flag)) then begin
x:=x+1;
top:=top+1;
a[top]:=s
end
else if not(flag) then
begin
x:=x+1;
for j:=1 to top-1 do
begin
a[j]:=a[j+1];
a[top]:=s
end
end;
end;
writeln(x);
end.

Answer 1

for j:=1 to top-1 do
begin
a[j]:=a[j+1];
a[top]:=s
end
这里错了吧 应该是
for j:=1 to top-1 do
a[j]:=a[j+1];

a[top]:=s;

如果不是这样 那你的a[top]每一次都会赋值 并且已经把你a[m]中的元素覆盖了
经测试 似乎对了

希望对你有帮助