Найти элемент, наиболее близкий к среднему значению всех элементов массива

@fedya7000 · Регистрация: 10.01.2016

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

Задача
Найти элемент, наиболее близкий к среднему значению всех элементов массива.
Я не знаю, как найти наиболее близкое значение.
Вот что я сделал.

Pascal

const n=20;
var
  i,b:integer;
  c,x:real;
  a:array[1..n] of integer;
begin
  for i:=1 to n do
  begin
    a[i]:=random(1,20);
    b:=b+a[i];
    c:=b/n;
    
  end;
end.

@Chilipalmer777 · 17.04.2016, 01:11

fedya7000, пару замечаний:
1. Не вижу у тебя первоначальной инициализации переменной B.
2. Вычисление среднего значения нужно производить после подсчета суммы всех элементов массива, делать это в цикле не вижу смысла.
3. Для выполнения этой задачи, я бы создал еще один массив(of Real), в который бы заносил разницу между каждым элементом массива и найденным средним значением.
4. Найти минимальный элемент в "новом" массиве разниц и запомнить его индекс.
5. По завершению цикла поиска минимума, вывести элемент исходного массива на экран, используя запомненный индекс минимального элемента.

п.с. Исправляй и показывай код.

@Alex57622 · 17.04.2016, 09:25

С коленки писал, но вроде правильно) если что пиши

Pascal

Const
    n=5;
Var
    a:array[1..n]of longint;
    min,i,k,s:longint;
Begin
    for i:=1 to n do 
    Begin 
        read (a[i]);
        s:=s+a[i];
    end;
    s:=round(s/n);
    min:=abs(a[1]-s);
    k:=1;
    for i:=2 to n do
        if abs(a[i]-s)<min 
        then 
        Begin
            min:=abs(a[i]-s);
            k:=i;
        end;
    writeln ('Среднее Арифметическое чисел - ',s);
    writeln ('Наиболее приближенный элемент - ',a[k],', его номер - ',k,', разность со средним - ',min);
end.

@Chilipalmer777 · 24.04.2016, 04:23

Alex57622, округлять значение разности до ближайшего целого считаю неверным, так как при этом теряется точность вычислений.

Добавлено через 58 минут
p.s. При следующем наборе исходных данных: 5, 2, 3, 1, 8
твоя программа выдаст, что "Наиболее приближенный элемент = 5", хотя на самом деле ближайшим числом к среднему арифметическому будет 3.

Так что я бы на твоём месте исправил тип переменных Min и S на Real.

p.s.2. И еще вопрос - насколько правильно будет работать твой код, если все числа будут отрицательными или часть чисел будет отрицательными?

А ведь LongInt предполагает не только положительные числа.

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 01:11	2
	fedya7000, пару замечаний: 1. Не вижу у тебя первоначальной инициализации переменной B. 2. Вычисление среднего значения нужно производить после подсчета суммы всех элементов массива, делать это в цикле не вижу смысла. 3. Для выполнения этой задачи, я бы создал еще один массив(of Real), в который бы заносил разницу между каждым элементом массива и найденным средним значением. 4. Найти минимальный элемент в "новом" массиве разниц и запомнить его индекс. 5. По завершению цикла поиска минимума, вывести элемент исходного массива на экран, используя запомненный индекс минимального элемента. п.с. Исправляй и показывай код. 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	24.04.2016, 04:23	4
	Alex57622, округлять значение разности до ближайшего целого считаю неверным, так как при этом теряется точность вычислений. Добавлено через 58 минут p.s. При следующем наборе исходных данных: 5, 2, 3, 1, 8 твоя программа выдаст, что "Наиболее приближенный элемент = 5", хотя на самом деле ближайшим числом к среднему арифметическому будет 3. Так что я бы на твоём месте исправил тип переменных Min и S на Real. p.s.2. И еще вопрос - насколько правильно будет работать твой код, если все числа будут отрицательными или часть чисел будет отрицательными? А ведь LongInt предполагает не только положительные числа. 0

Найти элемент, наиболее близкий к среднему значению всех элементов массива

Решение