двоичный поиск Опции

[maksimla]

Задание
Предположим, имеем первичных цифр массив. Напишите функцию, реализующую алгоритм двоичного поиска в таком массиве. Результаты функции - элемент массива, который равен функции аргументу, номер или 0.


я так непонел результаты какие надо вывести пример можете написать

[maksimla]

чтото неищит у меня цыфров

Код

program Bevarde2;
const count =10;
m:array [1..count] of byte=(10,9,8,7,6,5,4,3,2,1);
var n,i,first,last:integer;
a,low, high, mid:integer;
    found:boolean;
begin
  WriteLn('massiv uporedocennij');
  for i:= 1 to count do write(m[i]:3,' '); writeln; writeln;
  write('vvedite cislo kotoroe icete');
  readln(a);
         low:=1; high:=count;
       found:=false;        
       while (low<=high) and (not found) do
       begin
         i:=(low+high) div 2;
         if a<m[i] then high:=i-1
         else if a>m[i] then low:=i+1
         else found:=true;  
       end;
       if found then writeln('naiden')
       else writeln('nenaiden');  
    

  Readln;
end.

Добавлено через 2 мин.
вот эту нашол но чегото у меня неищит

Код

function BSearch (item: DataArray; count:integer;
                             key:DataItem):integer;
     var
       low, high, mid: integer;
       found:boolean;
     begin
       low:=1; high:=count;
       found:=false;         { не найден }
       while (low<=high) and (not found) do
       begin
         mid:=(low+high) div 2;
         if key<item[mid] then high:=mid-1
         else if key>item[mid] then low:=mid+1
         else found:=true;  { найден }
       end;
       if found then BSearch:=mid
       else BSearch:=0;  { не найден }
     end; { конец поиска }

[Lapp]

вот эту нашол но чегото у меня неищит

Когда же ты научишься точнее формулировать проблему? Это же в первую очередь тебе самому лучше..

Приведи ВСЮ программу и опиши, что именно работает неправильно.
"Не ищет" можно понимать тысячью разных способов. В том числе, и что ты ее не запускал, например..