Помогите с прогой по массивам. Задача: Записать число локальных минимумов. (число меньше...

Question

Помогите с прогой по массивам.
Задача: Записать число локальных минимумов. (число меньше своих соседей)

Answer 1

//PascalABC.Net 3.2
begin
write ('Первоначальный случайный массив: ');
var a:=arrrandom (random(5, 10), -100, 100); a.Println;
var count:=0;
for var i:=1 to length(a)-2 do if (a[i]write ('Локальных минимумов: ', count);
end.