От каждого из заданных m чисел X1,X2,..Xm отнять их среднеарифметическое
Результаты разместить на месте исходных данных
в цикле суммируешь все числа, затем делишь полученную сумму на количество чисел и опять же в цикле отнимаешь от каждого числа полученный при делении результат.
примерно вот так:
s:=0;
for i:=1 to m do
s:=s+X[i];
s:=s/m;
for i:=1 to m do
X[i]:=X[i]-s;