Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от –10000 до 10000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество таких троек элементов массива, в которых средний элемент больше суммы двух крайних элементов тройки. В данной задаче под тройкой подразумевается три подряд идущих элемента массива.
Например, для массива: 1 6 4 9 1 – ответ: 2.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.

Паскаль:
const
N=30;
var
a: array [1.. N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
Readln (a[i]);
...
end.

В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.

Answer 1

Ответ (Паскаль):

k:=0;

for i := 1 to N do  

if (i>1) and (i<30) and (a[i]>a[i-1]+a[i+1]) then k:=k+1;

writeln(k);

end.