Question

ОЧЕНЬ СРОЧНО ПОМОГИТЕ ПОЖАЛУЙСТА
Задан целочисленный массив А длинной N. Назовем в нем "горкой" такую четверку рядом стоящих элементов с номерами i-2, i-1, i и i+1, для которых выполняется условие A[i-2] < A[i-1] <= A[i] > A[i+1]. Напишите программу,которая определяет количество "горок" в массиве.

Answer 1

// PascalABC.NET, решение "в лоб"

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -20, 20);

 a.Println;

 var k := 0;

 for var i := 2 to n - 2 do

   if (a[i] >= a[i - 1]) and (a[i - 1] > a[i-2]) and

     (a[i] > a[i+1]) then Inc(k);

 Print('Количество горок:', k)    

end.