Кол-во шагов поиска в массиве

[bonjovi]

Написать программу, которая считает число шагов в двоичном(бинарном) поиске для массива из 32 элементов интервале [0,100]

[Hacker19_90]

В чём проблема?
Заводите переменую! Перед началом поиска
обнуляете
потом в каждом шаге увеличиваете на 1!
После поиска выводите!
В чём проблема?

[bonjovi]

Вот бинарный поиск элемента по номеру Х:

Read(X);
left:=1; right:=n;b:=0;
While left<=right do
Begin
k:=(left+right)div 2;
If X=a[k] then Begin r:=k;left:=Right+1;end;
If X>a[k] then Begin Right:=k-1;end;
If X<a[k] then Begin Left:=k+1;end;
inc(b);
end;
textcolor(blue);
If r=0 then writeln('Элементов НЕТ')
else writeln('Номер элемента - ',r);
Writeln('Количество шагов - ',b);

Left & right - границы! X- элемент, который нужно найти.


Вроде правильно всё или нет? Просто он мне выводит очень маленькое количество шагов......