Delphy 7 Массив. Нахождение ближайшего числа.

[Intripio]

Доброе время суток! Совсем запутался....подскажите пожалуйста. Есть число Х и есть массив A[20]. Нужно определить какой элемент массива более близко подходит к числу Х. Спасибо!


P.S. Например число Х=7,6
А[1]=-2
А[2]=-1
А[3]=0.454
А[4]=3
А[5]=-286
А[6]=7.45
А[7]=7.9
.
.
.
А[20]=10.574

Тут ближайший элемент к числу Х А[6]=7.45

[Serge_Bliznykov]

ищите в цикле значение, у которого модуль разности с нужным числом имеет минимальное значение:

  IndexNear := 1; {считаем, что 1-й элемент самый близкий к X}
  for i:=2 to N do
    if abs(A[i]-X)<abs(A[IndexNear]-X) then  IndexNear := i;

  WriteLn('Самый близкий элемент с индексом ',IndexNear);

[Intripio]

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

ищите в цикле значение, у которого модуль разности с нужным числом имеет минимальное значение:

  IndexNear := 1; {считаем, что 1-й элемент самый близкий к X}
  for i:=2 to N do
    if abs(A[i]-X)<abs(A[IndexNear]-X) then  IndexNear := i;

  WriteLn('Самый близкий элемент с индексом ',IndexNear);

Спасибо!!!