Описание:
Delphi функция Mean вычисляет среднее
арифметическое значение чисел массива. Среднее арифметическое это сумма чисел
поделённое на количество слагаемых.
Пример кода:
var
numbers : array[1..5] of Double;
aveVal, meanVal : Double;
begin
// Set
up the array of 5 floating point numbers
numbers[1] := 1.0;
numbers[2] := 2.5;
numbers[3] := 3.0;
numbers[4] := 4.5;
numbers[5] := 25.0;
// Calculate the average of these numbers
aveVal := (numbers[1] + numbers[2] + numbers[3] +
numbers[4] + numbers[5]) / 5;
//
Calculate the mean of these numbers
meanVal := Mean(numbers);
// Show these values
ShowMessage('Average
= '+FloatToStr(aveVal));
ShowMessage('Mean =
'+FloatToStr(meanVal));
end;