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

[Enerdgazer]

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

[ZX Spectrum-128]

http://kvodo.ru/dvoichnyiy-poisk.html

http://www.programmersforum.ru/showthread.php?t=236070

[Enerdgazer]

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

[Vanta11a]

Дак работайте с отсортированным массивом. Вам нужен этот кусок кода:

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('Завершить>');