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

Question

Информатика

Ракима

1 августа, 14:35

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

+1

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