Одномерный массив. Паскаль.

[Женька 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.

[ByAlex]

Сообщение от Женька Good

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

Дальше делай еще один цикл и ищи наибольший и наименьший элемент и т.д по логике!

[Serge_Bliznykov]

КРОССПОСТ

ТЕМА ЗАКРЫТА