fork download
  1. program duplicato;
  2. const MAXN=100000;
  3. MAXP=10000000;
  4. var N,i:longint;
  5. duplicatomancante, massimo :int64;
  6. P : array[1..2*MAXN] of longint;
  7. duplicati : array[1..MAXP] of longint;
  8. begin
  9. (* assign(input, 'input.txt'); reset(input);
  10.   assign(output, 'output.txt'); rewrite(output);*)
  11. readln(N);
  12. massimo:=0;
  13. for i:=1 to 2*N-1 do begin read(P[i]); if P[i]>massimo then massimo:=P[i]; end;
  14. for i:=1 to massimo do duplicati[i]:=0;
  15. for i:=1 to massimo do begin duplicati[P[i]]:=duplicati[P[i]]+1;end;
  16. for i:=1 to massimo do if duplicati[i]=1 then duplicatomancante:=i;
  17. writeln (duplicatomancante);
  18. end.
Success #stdin #stdout 0.01s 5284KB
stdin
Standard input is empty
stdout
0