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

Составить алгоритм и программу подсчитывающую количество больших чем соседних элементов массива J из 16 чисел. Значение элементов массива рассчитать по формуле CosS/S, где S номер элемента массива.

  • На выводе массива поставил вывод до 4 знака после запятой, можете убрать, если захотите. Или вообще вывод массива убрать
    uses crt;
    const n=16;
    var i,ans:integer;
    mas:array[1..n] of real;
    begin
    writeln(‘Массив:’);
    for i:=1 to n do
    begin
    mas[i]:=cos(i)/i;
    writeln(mas[i]:0:4);
    end;
    if mas[1]>mas[2] then
    inc(ans);
    for i:=2 to n do
    if (mas[i]>mas[i-1]) and (mas[i]>mas[i+1]) then
    inc(ans);
    writeln(‘Ответ: ‘,ans);
    end.