Question

Сжать одномерный массив состоящий из n вещественных элементов, удалив из него все элементы, модуль которых находится в интервале[a,b]. Освободившиеся в конце массива элементы заполнить нулями. На Delphi. Помогите пожалуйста.

Answer 1

Решение в прикрепленном файле.
Ввод - вывод программы:
число элементов массива:  5
массив:
 89.67  18.56  87.21  77.68  51.00 
диапазон:  10 80
новый массив:  
 89.67  87.21   0.00   0.00   0.00 

2a1566002b74e58c3fc67a96213010cc.txt