Найти линейным поиском с барьером фамилию спортсмена показавшего результат 5 часов.

[Liver]

Результаты соревнований по морофону представлены списком фамилий и массивом результатов. Всего 25 участников. Найти линейным поиском с барьером фамилию спортсмена показавшего результат 5 часов.

[alex_fcsm]

Сообщение от Liver

Результаты соревнований по морофону представлены списком фамилий и массивом результатов. Всего 25 участников. Найти линейным поиском с барьером фамилию спортсмена показавшего результат 5 часов.

uses crt;
const n=100;
var a:array[1..n] of real;
    Surname:array[1..n] of string[20];
    i,j,x:integer;
    t:string;
    temp:real;

procedure Find;
var i,l,r:integer;
begin
l:=1;r:=x;
repeat
i:=(r-l) div 2 +l;
if a[i]<5 then l:=i;
if a[i]>5 then r:=i;
if a[i]=5 then writeln(Surname[i]);
until (l=r)or(a[i]=5);

end;

begin
x:=0;
repeat
inc(x);
clrscr;
writeln('Input surname');
readln(Surname[x]);
writeln('Input result');
readln(a[x]);
if x<>n then writeln('Continue(y/n)?')
until (readkey='n')or(x=n);
  for i:=2 to x do
    for j:=x downto i do
      if a[j-1]>a[j] then
        begin
          Temp:=a[j-1];
          t:=Surname[j-1];
          a[j-1]:=a[j];
          Surname[j-1]:=Surname[j];
          a[j]:=temp;
          Surname[j]:=t;
        end;
writeln('---------------');
Find;

end.

P.S. Недавно видел задачу(не помню кто автор) - тоже самое только 4 часа