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

@Voley · Регистрация: 30.01.2015

Студворк — интернет-сервис помощи студентам

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

Входные данные
Сначала задано число N — количество элементов в массиве (1N100). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел.

Выходные данные
Необходимо вывести количество элементов массива, у которых два соседа и которые при этом строго больше обоих своих соседей.

Примеры
входные данные
5
1 2 3 4 5

выходные данные
0
входные данные
5
1 5 1 5 1

выходные данные
2

@kot96 · 19.10.2015, 18:36

Pascal

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.

@Voley 1 / 1 / 0 Регистрация: 30.01.2015 Сообщений: 81
		1
	Определить количество элементов массива, у которых два соседних элемента меньше заданного 19.10.2015, 17:47. Показов 14912. Ответов 1 Метки нет (Все метки) Дан массив, состоящий из целых чисел. Напишите программу, которая в данном массиве определит количество элементов, у которых два соседних и, при этом, оба соседних элемента меньше данного. Входные данные Сначала задано число N — количество элементов в массиве (1N100). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел. Выходные данные Необходимо вывести количество элементов массива, у которых два соседа и которые при этом строго больше обоих своих соседей. Примеры входные данные 5 1 2 3 4 5 выходные данные 0 входные данные 5 1 5 1 5 1 выходные данные 2 0

	19.10.2015, 18:36

Опции темы

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

Решение