Составить программу поиска в упорядочном массиве

Задача такая: Составить программу поиска в упорядочном массиве искомого числа методом последовательного деленея массива пополам
3 ответа

у меня програма метод сортировки масива пузырьком есть мне в нее как то надо запихнуть поиск чисел(


Дак работайте с отсортированным массивом. Вам нужен этот кусок кода:
count := 0;
 First := 1;
 Last := n;
 Found := False; {Элемент не найден}
 
 repeat {Повторять поиск}
 i := (First + Last) div 2; {Разделить на две части}
 if a[i] = m then Found:=True
 else
 begin
 if a[i] > m then First := i+1 {Искать элемент в правой части}
 else Last := i-1; {Искать элемент в левой части}
 end;
 count := count+1; {Увеличить счетчик числа итераций}
 until (Found) or (First>Last); {Завершить, если найдется искомый элемент или будет просмотрен весь массив}
 
 if Found then Writeln('Искомый элемент ', m,' в массиве занимает ',I,'-ю позицию')
 else
 Writeln('В массиве нет искомого элемента ',m);
 Writeln('Поиск выполнен За ',count,' итераций');
 Writeln('Завершить>');