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]<a[i-1]) and (a[i]<a[i+1]) then count+=1;
write ('Локальных минимумов: ', count);
end.