Задана последовательность из n вещественных чисел. Опреде - лить количество чисел, больших своих соседей, т. е. предыдущего и последующего числа.

Question

Информатика

Йорам

27 мая, 07:10

Задана последовательность из n вещественных чисел. Опреде - лить количество чисел, больших своих соседей, т. е. предыдущего и последующего числа.

+3

Ответы (1)

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

Кэмпбелл · Answer 1

Const

n = 50; / / количество элем массиваvar

a: array [1 ... n] of integer;

kol, i: integer; begin

for i : = 1 to n do

readln (a[i]) ;

for i : = 2 to n - 1 do

if (a[i] > a[i + 1]) and (a[i] > a[i - 1]) then

kol : = kol + 1;

writeln (kol) ;

end.