одномерный массив... не пойму:(

[Женька Good]

Заменить все элементы массива, которые стоят перед его наименьшим элементом, нолями, а следующие за наибольшим - единицами. Сначала выполнить первое действие, а потом второе. т.е.
1 - выводим просто массив,
2 - выводим массив с нулями перед наименьшим элементом,
3 - с единицами за наибольшим.

Вот программа, формирующая массив, помогите дальше плз...

Код:

Program Xme1ez_Mas;
Uses CRT;
Type mymassiv=array[1..9] Of Real;
     const y:mymassiv=(-1.2,-0.1,8.3,-9.5,6.3,-2.7,9.9,-3.6,- 2.8);
Var v:mymassiv;
    j:integer;
Begin
CLRSCR;
  For j:=1 to 9 do
   Begin
    v[j]:=cos(3*y[j]);
    Write(v[j]:6:1);
   end;
Readln;
end.

[Zer0]

1) Можно в цикле заполнения сразу искать минимум и максимум массива (примеров даже на этом форуме куча)
2) Следующим циклом смотрим, если следующее число массива равно минимуму, то сначала записываем в текущую позицию ноль, потом выводим
3) То же самое, только смотрим, равно ли предыдущее максимуму