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