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

1

Ответы и объяснения

2014-01-08T10:40:29+04:00
На выводе массива поставил вывод до 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.