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

Question

Информатика

Йорам

9 марта, 21:53

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

+5

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