Question

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

Answer 1

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.