МахитоТ
28.12.2021 21:53

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ДианкаСафонова
27.07.2020 23:22
Var
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота