给出n个整数,其中n是奇数,且n小于100接下来n行,每行一个整数,这n个整数中,只有1个数是单独的（就是说其他数每个数都有两个）用pascal做

Question

给出n个整数,其中n是奇数,且n小于100 接下来n行,每行一个整数,这n个整数中,只有1个数是单独的（就是
说其他数每个数都有两个） 用pascal做

Answer 1

var a:array[1..1000000] of longint;
i,n,j,k:longint;
begin
readln(n);
for i:=1 to n do begin
read(j);
inc(a[j]);
end;
for i:=1 to 1000000 do if a[i]=1 then writeln(i);
end.