1 / 1 / 0
Регистрация: 03.10.2009
Сообщений: 15
1

Найти значение элемента ближнего к сред.арифм.

17.11.2009, 14:16. Показов 1013. Ответов 6
Метки нет (Все метки)

Собственно говоря требуется найти элемент(-ы,если их несколько) ближайшие к сред.арифм. значению.
Дан массив из 10 элементов,заполненных рандомом.Я так понимаю,что нужно это дело делать через abs,но не догоняю как. Натолкните,а лучше помогите
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
Program fff;
const 
n=10;
var
mas:array[1..n] of Real;
sr,bsr,sum:real;
i:integer;
    begin
 randomize;
Writeln('Массив :');
For I:=1 to n do
  begin
mas[i]:=random;
sum:=mas[i]+sum;
sr:=sum/n;
Write('    ', mas[i]:10:4 , '    ');
   end;
Writeln('Среднее арифм =' , sr:10:4);
{ мм как бы найти ближнее к ср...?
  For I:=1 To n do 
  begin
bsr:=abs(sr-mas[i]);
If bsr>sr Then Writeln('Элемент ближний к ср: ', mas[i]);
 end;   но это будет неправильно}
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2009, 14:16
Ответы с готовыми решениями:

Массивы (вычислить сред. арифм. значение элементов каждой строки и столбца)
Уважаемые программисты Помогите написать -> S(25,8) Вывести исходный данные в первые 24 строки и 7...

Найти среднее арифметическое положительных элементов массива и сред.арифм. элементов больших единицы второго массива
Для каждой строки матрицы A (6×5) найти среднее арифметическое положительных элементов, а для...

Пользователь вводит массив из 7 чисел. программа подсчитывает сред. арифм. четных и и максимум из нечетных
Пользователь вводит массив из 7 чисел. программа подсчитывает сред. арифм. четных и и максимум из...

Найти адрес ячейки, со значение близким к ср.арифм. матрицы
Дана матрица A(m*n). Найти номера строки и столбца для элемента матрицы, наиболее близкого к...

6
2922 / 843 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
17.11.2009, 14:23 2
Цитата Сообщение от leshoyxX Посмотреть сообщение
Собственно говоря требуется найти элемент
какой элемент надо найти???

Добавлено через 28 секунд
Цитата Сообщение от leshoyxX Посмотреть сообщение
mas[i]:=random
может я не знаю но что это за запись
0
1 / 1 / 0
Регистрация: 03.10.2009
Сообщений: 15
17.11.2009, 14:38  [ТС] 3
какой элемент надо найти???
элемент(-ы) массива ближайший(-ие) к среднему арифметическому значению.
может я не знаю но что это за запись
Заполняем элементы массива случайными числами.Просто без скобочек,где указывается возможное число случайных чисел
0
2922 / 843 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
17.11.2009, 14:43 4
Pascal
1
2
3
4
5
6
bliz:=a[1];
for i:=2 to n do
 if (abs(bliz-sr)>abs(a[i]-sr)) then bliz:=a[i];
 
for i:=1 to n do
 if (abs(bliz-sr)=abs(a[i]-sr)) then writeln(a[i]);
1
Почетный модератор
64229 / 47531 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
17.11.2009, 14:44 5
Цитата Сообщение от mamedovvms Посмотреть сообщение
mas[i]:=random
Это вещественные числа из интервала (0,1), типа 0,236
2
2922 / 843 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
17.11.2009, 14:45 6
Цитата Сообщение от Puporev Посмотреть сообщение
Это вещественные числа из интервала (0,1), типа 0,236
первый раз слышу спасибо большое просветил
0
1 / 1 / 0
Регистрация: 03.10.2009
Сообщений: 15
17.11.2009, 14:49  [ТС] 7
Работает вроде. Большое спасибо Буду знать впредь как делать
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2009, 14:49
Помогаю со студенческими работами здесь

В вещественном двумерном массиве найти среднее арифм. каждого столбца и среднее арифм. строк с четными номерами
Задана вещественная квадратная матрица n-го порядка. Найти: а) среднее арифметическое каждого...

Найти значение максимального элемента и номер последнего элемента, значение которого равно максимальному
Помогите

Массив: Вычислить сред. арифметическое и сред. геометрическое.
Мне задали такое задание: Написать 1 формулу, которая будет вычислять и сред. арифметическое и...

Посчитать сред. значение в интервалах
Доброго времени суток! Помогите составить функцию для следующего: для всех строчек с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru