Сжать одномерный массив состоящий из n вещественных элементов, удалив из него все элементы, модуль которых находится в интервале[a,b]. Освободившиеся в конце массива элементы заполнить нулями. На Delphi. Помогите пожалуйста.
Решение в прикрепленном файле. Ввод - вывод программы: число элементов массива: 5 массив: 89.67 18.56 87.21 77.68 51.00 диапазон: 10 80 новый массив: 89.67 87.21 0.00 0.00 0.00