Как составить постановку и алгоритм в Pascal?

Помогите Составить постановку ,алгоритм в Pascal программу подсчитывающую произведение меньших чем соседние элементов массива F из 10 чисел.значения элементов массива рассчитать по формуле cos(h)/h ,где h номер элемента массива.

1 2019-09-26 21:07:44

Ответов: 1

// работает в PascalABC

program ttt;

// uses Ctr,Dos,Math; {забрать // только если программа в Turbo Pascal}

var f : array[1..10] of double;

h : integer;

sp : double;

begin

for h:=1 to 10 do f[h] := cos(h)/h; // заполняем массив

sp := 1;

if f[1]>f[2] then sp := sp*f[1];

if f[10]<f[9] then sp := sp * f[10];

for h:=2 to 9 do // ищем умножение элементов, которые меньше двух соседних

if ((f[h-1]>f[h]) and (f[h+1] > f[h])) then sp := sp * f[h];

writeln('Сформированная матрица F');

for h:=1 to 10 do writeln(' F[',h,'] = ',f[h]:12:6);

writeln('Произведение элементов, меньших за соседние, равно : S = ',sp:12:6);

end.