Составить алгоритм и программу подсчитывающую количество меньших чем соседние элементов массива Z из 13 чисел. Значения элементов массива рассчитать по формуле WSinW, где W номер элемента массива

Сперва мы создадим нужный массив Z, в котором будем хранить значения, которые нужно будет сравнить:

var Z: array[1 ... 13] of real; W, count: integer;

Заполнять его нужно не любыми числами, а по специальной формуле. Делать это будем в цикле:

for W:=1 to 13 do

Z[W]: = W*sin (W);

Массив создан и заполнен. Теперь нам нужно пройти еще раз по всем элементам и посмотреть, какие из них меньше, чем те, что слева и справа от элемента, и сосчитать их количество:

if Z[2] > Z[1] then

count:=count+1;

for W:=2 to 12 do

if (Z[W] < Z[W-1]) and (Z[W] < Z[W+1]) then

count:=count+1;

if Z[13] < Z[12] then

count:=count+1;

Выводим count и заканчиваем программу.