Энциклопедия Turbo Pascal. Главы 5-8
Страница 5. Среднее значение

Среднее значение

     Среднее значение  или арифметическое среднее наиболее широко
используется в статистике. Это одно значение может использоваться
для представления некоторого набора данных. В этом случае среднее
значение можно назвать "центром тяжести"  этого  набора.  Среднее
значение вычисляется следующим образом: складываются все значения
выборки и результат делится на общее  число  значений.  Например,
сумма набора значений

                    1 2 3 4 5 6 7 8 9 10

равна 55. Если это значение разделить на число элементов выборки,
равное десяти, то получим среднее значение 5,5.

     При разработке статистических функций на Турбо Паскале будем
считать,  что все данные хранятся в массиве чисел с плавающей за-
пятой с названием "DataArray",  тип которого определяется пользо-
вателем. Будем считать, что число элементов выборки известно. Все
функции и процедуры будут использовать массив "data" для хранения
выборки и переменную "num" для хранения числа элементов. Приводи-
мая ниже функция вычисляет среднее значение для массива  из "num"
чисел  с  плавающей запятой.  Результат получается в виде данного
типа числа с плавающей запятой:

    {  вычисление среднего значения }
    function mean(data: DataArray; num: integer): real;
    var
      t: integer;
      avg: real;

    begin
      avg:=0;
      for t:= 1 to num do avg:=avg+data[t];
      mean:= avg/num;
    end; {  конец вычисления среднего значения }

     Например, если вы вызовете функции "Mean" с десятиэлементным
массивом,  содержащим числа от 1 до 10,  то в результате получите
5,5.