кто может написать программу в Delphi7.0?в долгу не останусь.дан массив f1, ... ,f17.В массиве есть только два отрицательных элемента.Заменить все элементы,стоящие до первого отрицательного и после второго,на нули.