Последовательность вещественных чисел...

[iron-mik]

Помогите пожалуйста решить задачу:

Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Определить, номер числа, по абсолютной величине самого близкого к своему номеру. Если таких чисел несколько - вывести все номера этих эелементов.

Я её могу сделать, если бы не нужно было выводить все номера всех таких элементов. Пробовал через строки но там у меня такая муть получается...
Заранее очень благодарен!

[Nitrino]

Пиши решу Дёшево
ICQ: 410691984

[dr.Jekill]

самое простое решение ввести дополнительный массив (B) такой же длины,
потом проходишь по своему массиву вещественных чисел:
for i:=Low(A) to High(A) do
и записываешь разность индекса и значения:
B:=Abs(Abs(A)-i);
потом проходишь по массиву B и находишь там минимум со строгим условием (<)
потом проходишь от позиции минимума и смотришь, есть ли еще элементы равные минимуму