В массиве найти два элемента, среднее арифметическое которых ближе всего к t

@Marina677 · Регистрация: 21.01.2015

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

дан массив действительных чисел B(n) и действительное число t. В массиве B найти два элемента, среднее арифметическое которых ближе всего к t.

@Puporev · 27.03.2015, 06:29

Pascal

const nmax=100;
var b:array[1..nmax] of real;
    n,i,j,imn,jmn:byte;
    t,mn:real;
begin
randomize;
repeat
write('Размер массива B от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив B');
for i:=1 to n do
 begin
  b[i]:=10*random;
  write(b[i]:5:1)
 end;
writeln;
write('t=');
readln(t);
mn:=abs((b[1]+b[2])/2-t);
imn:=1;
jmn:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if abs((b[i]+b[j])/2-t)<mn then
 begin
  mn:=abs((b[i]+b[j])/2-t);
  imn:=i;
  jmn:=j;
 end;
write('Ближе всего к ',t:0:1,' среднее арифметическое чисел ',
       b[imn]:0:1,' и ',b[jmn]:0:1,' оно=',(b[imn]+b[jmn])/2:0:1);
end.

@Marina677 0 / 0 / 0 Регистрация: 21.01.2015 Сообщений: 79
		1
	В массиве найти два элемента, среднее арифметическое которых ближе всего к t 27.03.2015, 05:01. Показов 1264. Ответов 1 Метки нет (Все метки) дан массив действительных чисел B(n) и действительное число t. В массиве B найти два элемента, среднее арифметическое которых ближе всего к t. 0

	27.03.2015, 06:29

Опции темы

В массиве найти два элемента, среднее арифметическое которых ближе всего к t

Решение