В одномерном массиве выводятся одинаковые числа.

[Женька Good]

Есть программа с процедурами, где нужно преобразовать имеющийся массив в другой одномерный по формуле Vj:=sin3y.
Написал программу, только там все числа равны 0 при выполнении, что может быть не так? помогите плз

Вот моя программа:

Program Shalene_Divchisko;
Uses CRT;
type mymasyv=array[1..9] of real;
     Const y:mymasyv=(-1.2,-0.1,8.3,-9.5,6.3,-2.7,9.9,-3.6,-2.8);
     Const n=9;
Var v:mymasyv;
    vp:mymasyv;
    jnd,ind,j:integer;
    min,max:real;


Procedure transform(n:integer; Var v:mymasyv; Var y:mymasyv);
Var j:integer;
Begin;
   For j:=1 to n do
     begin
     v[j]:=sin(3*y[j]);
     Write(v[j]:5:1);
     end;
end;


Begin
CLRSCR;
transform(n,v,vp);
Readkey
end.

Если кто знает, то что это значит: найти наименьший элемент за абсолютным значением?

[ByAlex]

Вы в процедуре задали переменную y типа mymasiv, а mymasiv пустой!!!
Поэтому у вас и нули. Делай так -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type mymasyv=array[1..9] of real;
     Const y:mymasyv=(-1.2,-0.1,8.3,-9.5,6.3,-2.7,9.9,-3.6,-2.8);
     Const n=9;
Var v:mymasyv;
    vp:mymasyv;
    jnd,ind,j:integer;
    min,max:real;

Procedure transform(Var v:mymasyv);
Var
  j:integer;
Begin;
  For j:=1 to n do
  begin
    v[j]:=sin(3*y[j]);
    Write(v[j]:5:1);
  end;
end;

Begin
  transform(v);
  Readln;
end.

DeBug вам в помощь!

[Женька Good]

Спасибо ByAlex!!!
Кто знает, то что это значит: найти наименьший элемент за абсолютным значением?

[rUs_LAN]

Помоему тут имеется в виду по модулю (abs)

[Женька Good]

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

Помоему тут имеется в виду по модулю (abs)

Это то есть: amin:=ABS(число); так?

Ещё вопрос, вот как найти наибольший элемент одномерного массива, я пробую, но у меня из 9 чисел выводит постоянно последнее.
вот то что у мя получилось:

Procedure detect(Var v:mymasyv);
Var min,max,amin:real;
    j:integer;
Begin
max:=0;
   For j:=1 to n do begin
    If v[j]>max then max:=v[j];
    end;
    Writeln(v[j]:6:1);

end;

[rUs_LAN]

мне паскаль даже в страшных снах не снится, тем не менее поиск мауксимального элемента в вас правильный. Или массив не правильно передается в функцию, или что-то не правильно в этой строке.

 Writeln(v[j]:6:1);

возможно тут надо было вывести переменную max