Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от –10000 до 10000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество таких троек элементов массива, в которых средний элемент больше суммы двух крайних элементов тройки. В данной задаче под тройкой подразумевается три подряд идущих элемента массива Например, для массива: 1 6 4 9 1 – ответ: 2 Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных Паскаль cons N=30 va a: array [1.. N] of integer i, j, k: integer begi for i := 1 to N d Readln (a[i]) .. end В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.
count: integer
count := 0
for i := 1 to N - 2 d
begi
if (a[i + 1] > a[i] + a[i + 2]) the
count := count + 1
end
Writeln(count);