Дан целочисленный массив из 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.
В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.
Дан целочисленный массив из 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.
В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.
Например, для массива: 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.
В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
count: integer;
count := 0;
for i := 1 to N - 2 do
begin
if (a[i + 1] > a[i] + a[i + 2]) then
count := count + 1;
end;
Writeln(count);