Const
SIZE = 100;
Var n, i, sum, x : Integer;
a : Array[1..SIZE] Of Integer;
Begin
Readln(n);
FillChar(a, SizeOf(a), 0);
For i := 1 To n Do Begin Read(x);
Inc(a[x]);
End;
i := 0;
sum := 0;
While sum < (n DIV 2 + 1) Do
Begin Inc(i);
sum := sum + a[i];
End;
Writeln(i);
End.
输入： 11 4 5 6 6 4 3 3 2 3 2 1
输出：3