Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
5 / 5 / 0
Регистрация: 12.05.2012
Сообщений: 23
1

Массив. Найти два числа, среднее арифметическое которых ближе к заданному числу "a"

17.05.2012, 18:44. Просмотров 1280. Ответов 2
Метки нет (Все метки)

Ввести действительные числа.b1,b2,...bn.В последовательности этих чисел найти два числа, среднее арифметическое которых ближе к заданному числу"a".
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2012, 18:44
Ответы с готовыми решениями:

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

Найти два последовательных члена последовательности, среднее арифметическое которых ближе всего к определенному числу
Здравствуйте, помогите сделать задание, ни как не могу в него вникнуть: Компоненты файла f – целые...

В массиве найти два элемента среднее арифметическое которых ближе всего к заданному значению
Дано действительное число х и массив A . В массиве найти два элемента, среднее арифметическое...

Найти два числа, среднее арифметическое которых ближе к А
Даны действительные числа А и b(1), b(2),....,b(m).В последовательности b(j) найти два числа,...

2
3448 / 2386 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
17.05.2012, 19:02 2
Лучший ответ Сообщение было отмечено JOKER060694 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
const
  count=100;
var
  b: array[1..count] of integer;
  i,j,n,sum,k1,k2: integer;
  sr,sr2,d: real;
begin
  randomize;
  write('Введите размер массива: ');
  readln(n);
  writeln('Массив:');
  sum:=0;
  for i:=1 to n do
  begin
    b[i]:=random(99)+1;
    write(b[i],' ');
    sum:=sum+b[i];
  end;
  writeln;
  sr:=sum/n;
  writeln('Среднее арифметическое массива: ',sr:5:2);
  
  d:=abs((b[1]+b[2])/2-sr);
  for i:=1 to n-1 do
    for j:=i+1 to n do
        if abs((b[i]+b[j])/2-sr)<d
        then
          begin
            d:=abs((b[i]+b[j])/2-sr);
            k1:=i;
            k2:=j;
          end;
  writeln('Искомые числа: ',b[k1],'[',k1,']; ',b[k2],'[',k2,']');
  writeln('Их среднее арифметическое: ',((b[k1]+b[k2])/2):5:2);
  readln;
end.
Добавлено через 38 секунд
да, не заметил, здесь числа вводить надо.. сможешь сам подправить?
1
5 / 5 / 0
Регистрация: 12.05.2012
Сообщений: 23
17.05.2012, 19:03  [ТС] 3
Спс,смогу
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2012, 19:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

В массиве Y1, ... , Yn найти два элемента, среднее арифметическое которых равно заданному числу X
Даны натуральное число n, действительное число x и массив действительных чисел y1, ... , yn. В...

В массиве Y1, ... , Yn найти два элемента, среднее арифметическое которых равно заданному числу X
Даны натуральное число n, действительное число x и массив действительных чисел y1, ... , yn. В...

Найти два числа, среднее арифметическое которых ближе всего к х с помощью класса
Тема работы - разработка и реализация программ с использованием конструкторов и деструкторов... ...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.