ПОМОГИТЕ ПОЖАЛУЙСТА напишите программу в Паскале!
Дан массив, содержащий 2015 неотрицательных целых чисел. Необходимо найти в этом массиве количество таких элементов, которые равны среднему арифметическому двух элементов, расположенных сразу после него. Например, в массиве из 6 элементов, равных соответственно 2, 3, 1, 5, 6, 4, есть три таких элемента, они расположены на первом, втором и четвёртом месте и равны 2, 3 и 5.
Дан массив, содержащий 2015 неотрицательных целых чисел. Необходимо найти в этом массиве количество таких элементов, которые равны среднему арифметическому двух элементов, расположенных сразу после него. Например, в массиве из 6 элементов, равных соответственно 2, 3, 1, 5, 6, 4, есть три таких элемента, они расположены на первом, втором и четвёртом месте и равны 2, 3 и 5.
More Questions From This User See All
Answers & Comments
program mas_el_rav_srznach_2sledzanim;
const n=2015;
var
a:array[1..n] of integer;
i,k:integer;
begin
writeln(' Заполняем массив...');
for i:=1 to n do
begin
a[i]:=random(100);
write(' ',a[i]:5);
end;
writeln;
k:=0;
writeln(' Ищем...');
for i:=1 to n-2 do
begin
if(a[i]=(a[i+1]+a[i+2])/2) then
begin
writeln(k+1:4,')',i:5,' ',a[i]:3,'=(',a[i+1]:3,' +',a[i+2]:3,')/2');
inc(k)
end
end;
write(' Нашли 》');
write(k)
end.