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

Question

Информатика

Минаша

25 мая, 14:15

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

+4

Ответы (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.