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
输出:1