Язык с++ A3. Количество элементов больших обоих соседей

Ограничение времени 1 секунда

Ограничение памяти 64Mb

Ввод стандартный ввод или input.txt

Вывод стандартный вывод или output.txt

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

Формат ввода

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

Формат вывода

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

Пример 1

Ввод //Вывод
//0
5

1 2 3 4 5

0

Пример 2

Ввод// Вывод
//0
5

5 4 3 2 1

0

Пример 3

Ввод //Вывод
//2
5

1 5 1 5 1

https://
pastenow
.ru
/b64bce232fb9e8476039979028970142

ответ:

{напишите программу, которая находит минимальное и максимальное

среди чётных положительных чисел, записанных в файле,

и выводит результат в другой файл.}

var f: text;

  min, max,a : integer;

  find: boolean; {есть/нет числа удовлетворяющие условию}

begin

  assign(f,'dan.txt'); reset(f);

  min: =0; max: =0;

  find: =false;

  while not eof(f) do

  begin

  read(f,a);

  if not find and (a> 0) and (a mod 2=0) then

  begin

  min: =a; find: =true;

  end

  else

  if find and (a> 0) and (a mod 2=0) and (min> a) then

  min: =a;

  if (a> 0) and (a mod 2=0) and (max

  max: =a;

  end;

  close(f);

  assign(f,'res.txt');

  rewrite(f);

  if max=0 then writeln(f,'чётных положительных чисел нет')

  else

  writeln(f,'min среди чётных положительных чисел =',min, chr(13),

      'max среди чётных положительных чисел нет',max);

  close(f);

end.

подробнее - на -

объяснение: