задача по массивам

[мар5094]

помогите решить задачу по массивам пожалуйста.

[мар5094]

разработать программу вывода на печать больших чем последующие элементов массива J из 9 чисел. значения элемментов массива рассчитать по формуле CsinC,где С номер элемента массива.

[rubius2008]

Сообщение от мар5094

значения элемментов массива рассчитать по формуле CsinC,где С номер элемента массива.

for c:=1 to n do J[c]:=c*sin(c);

разработать программу вывода на печать больших чем последующие элементов массива J

for c:=1 to n do begin
  big:=true; for i:=c+1 to n do if J[c]<J[i] then big:=false;
  if big then wrtite(J[c],' ');
end;