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

Question

Информатика

Павля

2 декабря, 20:13

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

+3

Ответы (1)

Знаете ответ на вопрос?

Иляха · Answer 1

Uses crt;

const N=13;

var

Z: array [1 ... N] of real;

i, W, a: integer;

begin

clrscr;

a:=0;

for W:=1 to N do

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

for W:=2 to N-1 do

begin

if (Z[W]
a:=a+1;

end;

writeln (a) ;

end.