Составить алгоритм и программу подсчитывающую количество больших чем соседних элементов массива 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.