Определить количество элементов массива, у которых два соседних элемента меньше заданного - 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 на экран. Таким образом, данный код позволяет определить количество элементов массива, у которых два соседних элемента меньше заданного.

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы