Удалить из вещественного массива все элементы, отличающиеся от его максимального элемента не более чем на

[bingooo]

Удалить из вещественного массива все элементы, отличающиеся от его максимального элемента не более чем на Е, кроме самого максимального элемента ( Е - малое число, например, 0.001).

Ну, найду я макс, а как найти чилса, отличающиеся от макс на Е? Через диапазон от макс-Е до макс+Е?

Помогите пожалуйста записать часть программы, в которой я удаляю числа от макс-Е до макс+Е, но не удаляю сам макс.

[Gray_Jagger]

Попробуй что-нибудь вроде

if a[i] in [max-M;max+M] then a[i]:=0

а потом, если элемент массива равен нулю сделать так, чтобы его индекс присваивался следующему элементу