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

end.

Обсуждение

давно
Старший Модератор
31795
6196
01.02.2016, 12:28
общий
это ответ
Здравствуйте, Посетитель - 399097!

Смотрите приложение:
[code lang=pascal h=200]const
n=6;
var
a:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
readln(a[i]);
k:=0;
for i:=1 to n-2 do
if(a[i]=round((a[i+1]+a[i+2])/2))then
begin
inc(k);
write('a[':5,i,']:=',a[i]);
end;
writeln('count:=':10,k);
end.[/code]
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа