Найти два члена последовательности, среднее арифметическое которых ближе всего к х - 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);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д