Поиск в массиве

[Aleksandr]

Как найти элемент массива, который наиболее всего близок к заданному числу?

[Alex Cones]

В цикле по массиву, берем модуль разности от эталонного, если меньше текущего минимума - заносим номер элемента в память, если нет - идем дальше

[Aleksandr]

 for i:=1 to strtoint(edit1.Text) do
         a[i]:=abs(StrToInt(StringGrid1.Cells[i-1,0])-strtoint(edit2.Text));
      zn:=strtoint(edit2.Text);
      min:=1; 
     for i:=2 to strtoint(edit1.Text) do
         if a[i]<zn then min:=i;
          label2.caption:='Наиболее близкий элемент:'+IntToStr(a[min])

что у меня не так? Если ввожу числа в массив произвольным образом , то выводит не правильно

[Serge_Bliznykov]

не разбираясь особо где и как задаётся массив и границы, просто, чтобы проиллюстрировать алгоритм, абсолютно верно предложенный Вам Alex Cones:

     for i:=1 to strtoint(edit1.Text) do
         a[i]:=abs(StrToInt(StringGrid1.Cells[i-1,0])-strtoint(edit2.Text));
     zn:=strtoint(edit2.Text);
     min:=1; 
     for i:=2 to strtoint(edit1.Text) do
         if abs(a[i]-zn)<abs(a[min]-zn) then min:=i;
     label2.caption:='Наиболее близкий элемент:'+IntToStr(a[min])