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

Question

Информатика

Манефа

30 января, 12:54

Составить алгоритм и программу подсчитывающую количество меньших чем соседние элементов массива 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.