Найти два члена последовательности, среднее арифметическое которых ближе всего к х - Turbo Pascal (29858)

Узнай цену своей работы

Формулировка задачи:

Даны действительные числа х, у1,…, у25. В последовательности у1,…, у25 найти два члена среднее арифметическое которых ближе всего к х. Нужно решить при помощи массивов

Решение задачи: «Найти два члена последовательности, среднее арифметическое которых ближе всего к х»

textual
Листинг программы
k:=1;
min:=abs((y[1]+y[2])/2-x);
for i:=2 to 25 do
if abs((y[i]+y[i-1])/2-x)<min then
 begin
  min:=abs((y[i]+y[i-1])/2-x);
  k:=i-1;
 end;
write(y[k]:0:2,' ',y[k+1]:0:2);

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы