Бинарный(Двоичный) поиск в одномерном массиве

[bonjovi]

Дана задача:

Написать программу, которая сортирует массив ПО УБЫВАНИЮ и ищет в нём элемент, равный X(с клавиатуры). Использовать двоичный поиск.

[bonjovi]

Решил сам! Вот Может кому-нибудь понадобится!

Uses crt;

Var a:array [1..100] of integer;
i,j,k,X,left,right,b,r:integer;
f:boolean;

Begin
Write('Ïåðâîíà÷àëüíûé ìàññèâ: ');
For i:= 1 to 10 do
Read(a[i]);

     Repeat        //Ñîðòèðîâêà ïóçûðüêîì
     f:=true;
     For i:= 1 to 9 do
     If a[i]>a[i+1] then
          Begin
          f:=false;
          j:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=j;
          end;
     Until f=true;
     
Write('Îòñîðòèðîâàííûé ìàññèâ: ');
For i:= 1 to 10 do
Write(a[i],' ');
Writeln;
Write('Èñêîìîå ÷èñëî - ');
Read(b);
left:=1; right:=10;
While left<=right do
     Begin
     k:=(left+right)div 2;
     If b=a[k] then Begin r:=k;left:=Right+1;end;
     If b<a[k] then Begin Right:=k-1;end;
     If b>a[k] then Begin Left:=k+1;end;
     end;
textcolor(blue);
If r=0 then writeln('Ýëåìåíòîâ íåò')
       else writeln('Íîìåð ýëåìåíòà - ',r);
end.