ГАИ

[Poma][a]

Подумаешь...

Разговор был про : "упорядоченно?" + "сортировка" + "дихотомия", а цикл очень даже ничего..

abs(x[i]-x[minx]

Описочка..

[Stilet]

Точно.

var min:тип элемента массива; minx:integer;
...
for i:=1 to n do begin
 if (i=1)or(abs(x[i]-x[minx])<min) then begin minx:=i;min:=x[i]-x[minx]; end;
end;
write('Выйзжаем из ',x[minx]);

[ViktorR]

Видимо поздний час и туплю, ...
Ведь проишествие в т.Х.
и где эта точка в описанном коде?
Примитивный перебор не кошерно?
Если координаты постов в разнобой:

min := abs(x[1] - x);
k := 1;
for i:=2 to n do
   if (min > abs(x[i] - x)) then begin
      k:=i;
      min := abs(x[i] - x);
   end;
<выезд из п.k>

Если координаты постов по возрастанию:

min := x - x[1];
k := 1;
if min > 0 then begin  
  for i:=2 to n do
     if ((x- x[i]) > 0) then
        if (min > (x - x[i])) then begin
           k:=i;
           min := x - x[i];
        end
     else { x- x[i] < 0}
        if ((x[i] - x) < min) then
           k := i
        else
           break; {далее не рассматриваем}
end;
<выезд из п.k>

PS: Добавил вариант с бинарным поиском для случая упорядоченного массива Xn (во вложении).


Как-то так, ...