Помогите с заданием!

[Spartak213]

Нужно сделать до четверга,а у самого ничего не получается.В Паскале АБЦ

[type_Oleg]

Стыдно должно быть, молодой человек, что не можете посчитать среднее арифметическое ( вы не поверите, но это именно среднее арифметическое, хотя иногда его называют математическим ожиданием, и чаще всего это не имеет значения )
Если стыдно, но бросайте этот институт и поступайте в другой институт , где вообще нет ни математики, ни программирования.
Если не стыдно, идите в раздел Фриланс, там вам за деньги напишут, все что угодно.

Саму подпрограмму могу написать, чтобы просто поняли , о чем речь

type Tarray=array of Double;
function SrAr(ar:Tarray):Double;
var s:Double;
     i:Integer;
begin
 s:=0;
 for i:=0 to Length(ar)-1 do s:=s+ar[i];
 SrAr:=s/Length(ar);
end;