uses
  SysUtils;

const N=10;
type mas=array[1..N] of integer;
var sr_perb,sr_interp:integer;

procedure swap(var a,b:integer);
var c:integer;
begin
c:=a;
a:=b;
b:=c;
end;

procedure dummy_sort(var m:mas;N:integer);
var i,C,P:integer;
begin
i:=1;
C:=0;
P:=0;
while (i<=N-1) do
begin
inc(C);
if (m[i]>m[i+1]) then
begin
swap(m[i],m[i+1]);
inc(P);
i:=1;
continue;
end;
i:=i+1;
end;
writeln('Kol-vo sravneniy ',C);
writeln('Kol-vo perestanovok ',P);
end;

procedure direct_sort(var m:mas;N:integer);
var i,j,Min,C,P:integer;
begin
C:=0;
P:=0;
for i:=1 to N-1 do
  begin
  Min:=i;
  for j:=i+1 to N do
  begin
  if m[j]<m[Min] then Min:=j;
  inc(C);
  end;
  swap(m[i],m[min]);inc(P);
  end;
writeln('Kol-vo sravneniy ',C);
writeln('Kol-vo perestanovok ',P);
end;

procedure generate(var m:mas);
var i:integer;
begin
Randomize();
for i:=1 to N do
m[i]:=Random(100);
end;

procedure show(var m:mas);
var i:integer;
begin
for i:=1 to N do
write(m[i],' ');
writeln;
writeln;
end;

Function Search1(var m:mas;N,Val:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to N do
  begin
    inc(sr_perb);
    if m[i]=val then
    begin
    Result:=i;
    inc(K);
    break;
    end;
  end;
if k=0 then
  Result:=-1;
end;

Function Search2(var m:mas;N,Val:integer):integer;
var L,R,i:integer;
begin
L:=1;
R:=N;
Result:=-1;
while (L<=R) do
  begin
  i:=(L+((R-L)*(val-m[L])) div (m[R]-m[L]));
  inc(sr_interp);
  if val>m[i] then
    L:=i+1
  else if (val<m[i]) then
    R:=i-1
  else
    begin
    Result:=i;
    break;
    end;
  end;
//if m[L]=val then Result:=L else Result:=-1;
end;

var m,m1:mas;Val:integer;
begin
sr_perb:=0;
sr_interp:=0;

generate(m);
m1:=m;

show(m);
dummy_sort(m,N);
show(m);

direct_sort(m1,N);
show(m1);

write('Vv chislo:');
read(Val);
if ((Search1(m,N,Val))<0) then writeln('net chisla')
                          else writeln('nomer el-ta:',Search1(m,N,Val));
writeln('Kol-vo sravneniy:',sr_perb);
if ((Search1(m,N,Val))<0) then writeln('net chisla:')
                          else writeln('nomer el-ta:',Search2(m,N,Val));
writeln('Kol-vo sravneniy:',sr_interp);
readln;
writeln(' ');
readln;
end.