СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости




Задания
Версия для печати и копирования в MS Word
Задание 25 № 2920

Определить есть ли в массиве хотя бы одна тройка соседних чисел, в которой средний элемент больше своих "соседей", т. е. предшествующего и последующего. В случае положительного ответа определить номера элементов первой из таких троек.

Решение.

const 

N = 100500;

var 

a: array[1..N] of integer;

i,index: integer;

begin

for i :=1 to N do 

read(a[i]);

index := -1;

for i := 2 to (N─1) do 

if ((a[i] > a[i─1]) and (a[i] > a[i+1]) and (index=-1)) then index := i;

if (index = -1) then 

write('Нет таких чисел')

else 

write(index─1,' ',index,' ',index+1); 

end.