Problems \text{Problems} Problems
对于一个数组,做以下操作: 对于每个元素,只保留该元素在该数组中最右边的一个,删去其余相同元素。
Answer \text{Answer} Answer
看到数据范围 1 ≤ n ≤ 50 1\le n\le50 1≤n≤50,基本就是暴力枚举了。
从后往前扫,并判断前面是否出现过这个数,如果出现过,则不加入 b b b数组;如果没出现过,则 m++,b[m]=a[i] \text{m++,b[m]=a[i]} m++,b[m]=a[i]。
最后输出 m m m并倒叙输出 b b b数组即可。
Code \text{Code} Code
var
n,i,j,m:longint;
a,b:array[0..51] of longint;
p:boolean;
begin
readln(n);
for i:=1 to n do read(a[i]);//读入a数组
for i:=n downto 1 do//从后往前扫
begin
p:=true;//反证法
for j:=i+1 to n do if a[i]=a[j] then p:=false;//如果出现过,则不加入
if p then begin inc(m);b[m]:=a[i];end;//如果没出现过,则加入b数组
end;
writeln(m);
for i:=m downto 1 do write(b[i],' ');//倒序输出!!!
end.