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

                             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.