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