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

Uses crt;

const N=10;

var J:array [1 ... N] of real;

SUM:real;

B:integer;

begin

SUM:=0;

for b:=1 to N do

J[B]:=sin (B) / cos (B) ;

for B:=1 to N do

writeln (J[B]:5:3) ;

for B:=2 to N-1 do

if (J[B]>J[B+1]) and (J[B]>J[B-1]) then SUM:=SUM+J[B];

if J[1]>J[2] then SUM:=SUM+J[1];

if J[N]>J[N-1] then SUM:=SUM+J[N];

writeln;

write ('SUM=', SUM:5:3) ;

end.