Дан массив размера N, найти и вывести кол-во локальных максимумов. Программа должна быть выполнена в паскале.

Предыдущий
вопрос Следующий
вопрос

Пример решения данной задачи на языке Pascal:

program LocalMaxima;
const
N = 5;
var
arr: array[1..N] of Integer;
i, count: Integer;
begin
count := 0;
// Ввод элементов массива
writeln('Введите элементы массива:');
for i := 1 to N do
begin
readln(arr[i]);
end;
// Поиск локальных максимумов
for i := 2 to N - 1 do
begin
if (arr[i] > arr[i-1]) and (arr[i] > arr[i+1]) then
begin
count := count + 1;
end;
end;
// Вывод результата
writeln('Количество локальных максимумов в массиве:', count);
end.

Программа сначала запрашивает у пользователя ввод элементов массива, затем пробегает по элементам массива и сравнивает их со соседними элементами. Если текущий элемент больше предыдущего и следующего, то это считается локальным максимумом и увеличивается счетчик. В конце программа выводит количество найденных локальных максимумов.