Помогите написать программу Если в массиве (из n чисел) есть хотя бы одна тройка соседних чисел, в которой средний элемент больше своих "соседей", т. е. предшествующего и последующего, то напечатать все элементы, предшествующие элементам последней из таких троек.

Спасибо большое. Тут написано решение от начала и до конца?

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

спасибо

type mas=Array [1...100] of integer;var i,n,itre:integer;a:mas;beginreadln(n);for i:=1 to ndo read(A[i]);for i:=2 to n-1do if (A[i]>A[i-1]) and (A[i]>A[i+1])then itre:=i;for i:=1 to itre-2do writeln(A[i]);end.