0
Смысл этого поиска в том, чтобы в массиве отсортированном по возрастанию найти номер числа x. Этот поиск гораздо быстрее простого перебора.
Он работает следующим образом:
var n, x, l, r, f, m, i: longint;
a : array[1..1000] of longint;
begin
readln(n, x); {ввод кол-ва чисел и число котороe требуется найти}
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 {иначе если это число меньше числа посередине нашей области, то правую границу нам надо сдвинуть к этой серединке, но на 1 число влево}
else l := m + 1; {иначе левую границу сдвинуть к серединке, но на число вправо}
end;
if (f = 1) then
writeln(m)
else
writeln('Данного числа в массиве нет'); {вывод}
end.
