怎么错了

program exe;

var n,i,s,j:integer;

a,b:array[1..1000]of integer;

begin

read(n);s:=0;

for i:=1 to n do read(a[i]);

for i:=1 to n do b[i]:=0;

for i:=1 to n do

for j:=1 to n do

if a[i]=a[j] then b[i]:=b[i]+1;

for i:=1 to n do if b[i]=1 then s:=a[i];

write(s);

end.

1 条评论

  • 1

信息

ID
1684
难度
5
分类
数据结构 | Hashing 点击显示
标签
递交数
3033
已通过
941
通过率
31%
被复制
5
上传者