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