Определить количество элементов массива, у которых два соседних элемента меньше заданного - Pascal ABC
Формулировка задачи:
Дан массив, состоящий из целых чисел. Напишите программу, которая в данном массиве определит количество элементов, у которых два соседних и, при этом, оба соседних элемента меньше данного.
Входные данные
Сначала задано число N — количество элементов в массиве (1N100). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел.
Выходные данные
Необходимо вывести количество элементов массива, у которых два соседа и которые при этом строго больше обоих своих соседей.
Примеры
входные данные
5
1 2 3 4 5
выходные данные
0
входные данные
5
1 5 1 5 1
выходные данные
2
Решение задачи: «Определить количество элементов массива, у которых два соседних элемента меньше заданного»
textual
Листинг программы
var a:array[1..100]of integer; n,i,k:integer; begin k:=0; readln(n); for i:=1 to n do read(a[i]); for i:=2 to n-1 do if (a[i]>a[i-1]) and (a[i]>a[i+1]) then inc(k); writeln(k); end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal ABC. Переменные в этом коде объявлены следующим образом:
- n - номер элемента массива, который мы считываем с клавиатуры;
- i - номер текущего элемента массива, который мы считываем с клавиатуры;
- k - переменная, которая увеличивается каждый раз, когда мы находим элемент массива, у которого два соседних элемента меньше заданного. Для решения поставленной задачи используется цикл for, который выполняется от 1 до n (количество элементов массива), где n - число, считанное с клавиатуры. Внутри цикла выполняется чтение значения элемента массива из соответствующей ячейки памяти. Затем выполняется проверка условия: если текущий элемент больше предыдущего и следующего, то значение переменной k увеличивается. После завершения внутреннего цикла выполняется вывод значения переменной k на экран. Таким образом, данный код позволяет определить количество элементов массива, у которых два соседних элемента меньше заданного.