Массив: В последовательности найти два члена, среднее арифметическое которых ближе всего к x.

@Родион ТТ · Регистрация: 02.10.2018

Author24 — интернет-сервис помощи студентам

Даны действительные числа х, $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{1}$ , ... , $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{25}$ . В последовательности $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{1}$ , ... , $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{25}$ найти два члена, среднее арифметическое которых ближе всего к x.

@Puporev · 05.11.2018, 10:01

Pascal

const n=25;
var y:array[1..n] of real;
    x,min,y1,y2:real;
    i,j:integer;
begin
randomize;
writeln('Массив Y');
for i:=1 to n do
 begin
  y[i]:=20*random;
  write(y[i]:5:1);
 end;
writeln;
write('Введите число для поиска x=');
readln(x);
min:=abs((y[1]+y[2])/2-x);
y1:=y[1];
y2:=y[2];
for i:=1 to n-1 do
for j:=i+1 to n do
if abs((y[i]+y[j])/2-x)<min then
 begin
  min:=abs((y[i]+y[j])/2-x);
  y1:=y[i];
  y2:=y[j];
 end;
writeln('Наиболее близко к ',x:0:1,' среднее арифметическое чисел ',y1:0:1,' и ',y2:0:1);
write('Оно=',(y1+y2)/2:0:1)
end.

@Родион ТТ 1 / 1 / 0 Регистрация: 02.10.2018 Сообщений: 30
		1
	Массив: В последовательности найти два члена, среднее арифметическое которых ближе всего к x. 04.11.2018, 21:37. Показов 876. Ответов 1 Метки нет (Все метки) Даны действительные числа х, $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{1}$ , ... , $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{25}$ . В последовательности $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{1}$ , ... , $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{25}$ найти два члена, среднее арифметическое которых ближе всего к x. 0

	05.11.2018, 10:01