ПОДПРОГРАММЫ DELFI!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[EllRay]

Заданы экспериментальные значения трех случайных величин
a={a1,...,an}
b={b1....bn}
c={c1....cn}
Найти максимальное из трех чисел x, y, z где x- математическое ожидание случайной величины a, y- математическое ожидание случайной величины b, z- математическое ожидание случайной величины c. Учесть что математическое ожидание М некоторой случайной велечены d={d1....dn} рассчитывается по формуле M= (1/n)*(сумма тоесть Е) (внизу суммы "i=1" вверхy "n")* умноженое на альфа с индексом i) [ну вот как то так по другому объяснить не могу] . Вычесление математического ожидания оформить в виде подпрограммы

[Mad_Cat]

Function MatO(AR:TArr,r:integer):double;
var i:integer;m_o:double;
begin
m_o:=0;
for i:=1 to r do
m_o:=m_o+ar[i];
result:=m_o/r;
end;