（中位数）给定 n（n 为奇数且小于 1000）个整数，整数

const
  MAXN = 1000;
var
  n, i, lbound, rbound, mid, m, count : longint;
  x : array [1..MAXN] of longint;
begin
  read(n, m);
  for i := 1 to n do
    read(x[i]);
  lbound := 0;
  rbound := m;
  while     1     do
  begin
    mid := (lbound + rbound) div 2;
    2;
    for i := 1 to n do
      if     3     then
        4;
    if count > n div 2 then
      lbound := mid + 1
    else
      5;
  end;
  writeln(rbound);
end.