Определить количество элементов массива, у которых два соседних элемента меньше заданного - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Определить количество элементов массива, у которых два соседних элемента меньше заданного - Pascal ABC»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.286 из 5


СДЕЛАЙТЕ РЕПОСТ