Дан массив, содержащий 2016 неотрицательных целых чисел. Необходимо найти в этом массиве количество таких элементов, которые равны среднему арифметическому двух элементов, расположенных непосредственно перед ним. Например, в массиве из 6 элементов, равных соответственно 4, 6, 5, 1, 3, 2, есть три таких элемента, они расположены на третьем, пятом и шестом месте и равны 5, 3 и 2. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. const N=2016; var a: array [1 ... N] of integer; i, k: integer; begin for i:=1 to N do readln (a[i]); ... end. В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.

Question

Moskoviia

Информатика

25 октября, 01:42

Дан массив, содержащий 2016 неотрицательных целых чисел. Необходимо найти в этом массиве количество таких элементов, которые равны среднему арифметическому двух элементов, расположенных непосредственно перед ним. Например, в массиве из 6 элементов, равных соответственно 4, 6, 5, 1, 3, 2, есть три таких элемента, они расположены на третьем, пятом и шестом месте и равны 5, 3 и 2. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. const N=2016; var a: array [1 ... N] of integer; i, k: integer; begin for i:=1 to N do readln (a[i]); ... end. В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Макар Сахаров · Answer 1

for i:=3 to n do / / организуем цикл, в котором переберем все числа массива

begin

if a[i] = (a[i - 2] + a[i - 1]) div 2 then k:=k + 1;

/ / проверяем, если очередной элемент массива равен среднему арифметическому двух предыдущих элементов, то считаем его

end;

writeln (' количество найденных элементов = ', k); / / выводим ответ

end.