Вопрос помогите разобраться, пожалуйста, как будет выглядеть программа на паскале

[ananim2013]

Найти среднее арифметическое значение элементов одномерного массива B размером n. Преобразовать исходный массив, вычитая из каждого элимента среднее арифметическое значение

 

[iSenZo]

Там точно будет что-то похожее. for i:=1 to n do sum:=sum+a; srar:=sum/n; for i:=1 to n do a:=a-srar;

 

[Dimansexpyp]

вижу... там будет begin и end, их будет несколько всё как в тумане... в чём трудности?