[AlexSku]

С помощью модуля Math можно не писать цикл:

Код:

Asum := SumInt(m);
Amax := MaxIntValue(m);
Amin := MinIntValue(m);
{ср. ариф.}:= Mean(m)