Заменить элементы стоящие перед минимальным на 0, а после максимального на 1

[Женька Good]

Я нашел максимальное и минимальное, а как заменить не знаю.
Help please!
И ещё проблемка, при нахождении минимального(красный цвет), значение берется конечное из массива, а не останавливается на минимальном

Вот то что я сделал:

Program Xme1ez_exam;
Uses CRT;
Type mas=array[1..9] of Real;
     Const y:mas=(-1.2,-0.1,8.3,-9.5,6.3,-2.7,9.9,-3.6,-2.8);
     const n=9;
Var v,a:mas;
    min:real;
    max:Real;
    
Procedure Transform(Var v:mas);
Var j:integer;
begin
 For j:=1 to n do
  begin
  v[j]:=cos(3*y[j]);
  Write(v[j]:7:1);
  end;
end;

Procedure Min_max(min:real;max:real; Var v:mas; Var a:mas);
Var j:integer;
begin
max:=1;
min:=1;
 For j:=1 to n do
 a[j]:=v[j];
 If a[j]<min then
 min:=a[j];
 Writeln('min',min:7:1);

 For j:=1 to n do
 a[j]:=v[j];
 if a[j]>max then
 max:=v[j];
 Writeln('max',max:7:1);
 end;

Begin
CLRSCR;
transform(v);
writeln;
Min_Max(min,max,v,a);
Writeln;              
readln
end.

[Jersey]

Чтобы выполнить это задание надо запоминать не значение максимального и минимального элемента, а их координаты. То есть imax jmax и imin jmin.
Далее в циклах делать обнуление или замену на единицы уже в зависимости от этих значений.

[Женька Good]

Сообщение от Jersey

Чтобы выполнить это задание надо запоминать не значение максимального и минимального элемента, а их координаты. То есть imax jmax и imin jmin.
Далее в циклах делать обнуление или замену на единицы уже в зависимости от этих значений.

Ну это я понял, но можно бы то, что вы сказали написать на программном уровне?

[Jersey]

А. Почему-то подумал о двумерном массиве. Для одномерного вообще все просто.
При нахождении минимального

 For j:=1 to n do
 a[j]:=v[j];
 If a[j]<min then
 min:=a[j];
 minj:=j;
 Writeln('min',min:7:1);

При нахождении максимального

For j:=1 to n do
 a[j]:=v[j];
 if a[j]>max then
 max:=v[j];
 maxj:=j;
 Writeln('max',max:7:1);

Далее в цикле

for j:=1 to minj do
a[j]:=0;
for maxj to n do
a[j]:=1;

Вроде так, ну или приблизительно, могу ошибаться. Проверяйте, у меня возможности нет. Сейчас на учебу, приеду домой посмотрю.

[Женька Good]

Сообщение от Jersey

А. Почему-то подумал о двумерном массиве. Для одномерного вообще все просто.
При нахождении минимального

 For j:=1 to n do
 a[j]:=v[j];
 If a[j]<min then
 min:=a[j];
 minj:=j;
 Writeln('min',min:7:1);

При нахождении максимального

For j:=1 to n do
 a[j]:=v[j];
 if a[j]>max then
 max:=v[j];
 maxj:=j;
 Writeln('max',max:7:1);

Далее в цикле

for j:=1 to minj do
a[j]:=0;
for maxj to n do
a[j]:=1;

Вроде так, ну или приблизительно, могу ошибаться. Проверяйте, у меня возможности нет. Сейчас на учебу, приеду домой посмотрю.

Вот я немного переделал:

Program Xme1ez_exam;
Uses CRT;
Type mas=array[1..9] of Real;
     Const y:mas=(-1.2,-0.1,8.3,-9.5,6.3,-2.7,9.9,-3.6,-2.8);
     const n=9;
Var v,a:mas;
    minj:integer;
    maxj:integer;
Var j:integer;
    max,min:real;

begin

 For j:=1 to n do
  begin
  v[j]:=cos(3*y[j]);
  Write(v[j]:7:1);
  end;
  writeln;
  
  {naxodim Minimalny}
  min:=v[1];
  minj:=1;
  For j:=1 to n do
  begin
  If v[j]<min then
  minj:=j;
  end;
  Writeln(minj:7);
  
  {nahodim maksimalny}
  Maxj:=1;
  For j:=1 to n do
  begin
  If v[j]>max then
  maxj:=j;
  end;
  write(maxj:7);
  writeln;
  
  {Zamenyaem na 0 i 1}
  For j:=1 to minj do begin
  a[j]:=0;
  Write(a[j]:7:1);
  end;
  For j:=maxj to n do begin
  v[j]:=1;
  write(a[j]:7:1);
  end;
  
readln
end.

Там, где красным выделено, я заменяю элементы, но выводит все 0

[Jersey]

А максимальный и минимальный ищет верно?