uses  Crt;
const n=10;
type  Tmass=array[1..n] of integer;
var   a:Tmass;
      i,j,t:integer;
begin
      ClrScr;
       Writeln('Massiv:');
        Writeln;
         Randomize;
       for i:=1 to n do
        begin
          a[i]:=Random(100);
          Write(a[i]:4);
        end;
         Writeln;
          Writeln;
       for i:=1 to n-1 do
        for j:=1 to n-i do
         if a[j]<a[j+1] then
          begin
            t:=a[j];
            a[j]:=a[j+1];
            a[j+1]:=t;
          end;
       Writeln('Massiv sortirovanniy po ubivaniju:');
        Writeln;
       for i:=1 to n do
        Write(a[i]:4);
       Writeln;
      ReadKey;
end.

uses  Crt;
const n=15;
type  Tmass=array[1..n] of integer;
var   a:Tmass;
      i,j,t,f,d:integer;
begin
      ClrScr;
       Writeln('Massiv:');
        Writeln;
         Randomize;
       for i:=1 to n do
        begin
          a[i]:=Random(1000);
          Write(a[i]:5);
        end;
         Writeln;
          Writeln;
       for i:=1 to n-1 do
        for j:=1 to n-i do
         if a[j]>a[j+1] then
          begin
            t:=a[j];
            a[j]:=a[j+1];
            a[j+1]:=t;
          end;
       Writeln('Sortirovanniy massiv:');
        Writeln;
       for i:=1 to n do
        Write(a[i]:5);
         Writeln;
          Writeln;
           Write('Cislo dlja poiska = ');
            Readln(t);
             Writeln;
       f:=0; i:=1; j:=n;
        repeat
           d:=(i+j) div 2;
           if t=a[d] then
            begin
              f:=d;
              Break;
            end;
           if t>a[d]
            then i:=d+1
            else j:=d-1;
        until i>j;
       if f=0
        then Writeln('V massive net dannogo cisla')
        else Writeln('Dannoe cislo imeet poziciju - ',f);
      ReadKey;
end.