var 
n, x, l, r, f, m, i: longint;
a : array[1..1000] of longint;
begin
readln(n, x); {ввод кол-ва чисел и число номер которого требуется найти}
for i := 1 to n do
       read(a[i]);
l := 1; {левый показатель границы поиска}
r := n; {правый показатель границы поиска}
f := 0; {флажок, если он 0, то мы ещё не нашли число, можно заменить переменной типа boolean}
while (f = 0) and (r >= l) do  {пока мы не нашли число и пока ещё есть где искать мы делаем следующее}
            begin
            m := (l + r) div 2; {нашли серединку в области поиска}
            if a[m] = x then
                   f := 1
            else if a[m] > x then r := m - 1
                   else l := m + 1; {если мы нашли это число, тогда флажок вверх, иначе если это число меньше числа посередине нашей области, то правую границу нам надо сдвинуть к этой серединке, но на 1 число влево, иначе левую границу сдвинуть к серединке, но на число вправо}
            end;
if (f = 1) then
      writeln(m)
else
      writeln('Данного числа в массиве нет'); {вывод}
end.