Найти среднее арифметическое значение X и среднее квадратное отклонение σ: Опции

[natali_cortocova]

Мальчики помогите.
Дан массив X(N). Найти среднее арифметическое значение X и среднее квадратное отклонение σ.

[IUnknown]

Среднее арифметическое X находится в моем коде в переменной aver, если что. Без среднего арифметического посчитать сигму... Хм... как бы это сказать... Несколько затруднительно, поэтому мы сначала ищем среднее арифметическое элементов, а потом с его помощью - отклонение.

[natali_cortocova]

Среднее арифметическое X находится в моем коде в переменной aver, если что. Без среднего арифметического посчитать сигму... Хм... как бы это сказать... Несколько затруднительно, поэтому мы сначала ищем среднее арифметическое элементов, а потом с его помощью - отклонение.

Что я сделала не так? Пишет что "нельзя преобразовать тип real к integer".

Const
n=10;

Var
X:array [1..n] of integer;
i,aver:integer;

begin
Write('Введите массив: ');
For i:=1 to n do
Read(X[i]);
Readln;

for i := 1 to N do
aver := aver + X[ i ];
aver := aver / N;

for i := 1 to N do
sigma := sigma + sqr(X[ i ] - aver);
sigma := sqrt(sigma / N);

Writeln('среднее арифметическое - ',aver);
Writeln('отклонение - ',sigma);
Readln;
end.