
Дан массив, состоящий из целых чисел. Напишите программу, которая в данном массиве определит
количество элементов, у которых два соседних и, при этом, оба соседних элемента меньше данного. Входные данные Сначала задано число N — количество элементов в массиве (1N100). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел. Выходные данные Необходимо вывести количество элементов массива, у которых два соседа и которые при этом строго больше обоих своих соседей. Примеры Входные данные 5 1 2 3 4 5 Выходные данные 0 Входные данные 5 1 5 1 5 1 Выходные данные 2

Ответы на вопрос

A:array[1..100]of integer;
N,S:byte;
Begin
Read(N);
For N:= 1 to N do
Read(A[N]);
For N:= 2 to N-1 do
if (A[N]>A[N-1])and(A[N]>A[N+1]) then S:=S+1;
Write(S)
End.



Решение задачи на Python
Для решения данной задачи на Python можно написать следующую программу:
```python def count_special_elements(arr): count = 0 for i in range(1, len(arr) - 1): if arr[i] > arr[i - 1] and arr[i] > arr[i + 1]: count += 1 return count
# Входные данные input_arr = [1, 5, 1, 5, 1]
# Вызов функции и вывод результата result = count_special_elements(input_arr) print(result) ```
Этот код определяет функцию `count_special_elements`, которая принимает массив `arr` в качестве аргумента и возвращает количество элементов массива, у которых два соседних элемента меньше данного.
Результат
Для входных данных `[1, 5, 1, 5, 1]` программа выведет `2`, что соответствует ожидаемому результату.
Объяснение
Программа проходит по массиву и сравнивает каждый элемент с его соседними. Если элемент больше обоих соседних, увеличивается счетчик. В конце программа возвращает общее количество таких элементов.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili