не получаеться дополнить код!

[mishammm]

Вот задача:
Для заданого двумерного массива найти среднее арифметическое(я нашел его), среднее квадратное отклонение Б(это дельта) за формулами. + массив на картинке
Вот формулы: (на картинке).
Так вот дополните пожалуйста код . я не знаю как искать среднее среднее квадратное отклонение!! Пожалуйста!
Мой код:

var   i  , j:integer;
  a:array [1..2,1..4] of real;
  sum,av:real;
 
   begin
   for i:=1 to 2 do begin
   for j:=1 to 4 do begin
   write('a[',i,',',j,']='); read(a[i,j]);
   end;
   end;
   sum:=0;
   for i:=1 to 2 do
   begin
   for j:=1 to 4 do
   begin
    sum:=sum+A[i,j]; 
    end;
    end;
    av:=sum/(2*4);  
    writeln('average =',av);
    readln;
    end.

Мне советовали такой код:

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);

но куда его втулить я не знаю.

[SaLoKiN]

все верно вам советовали. в чем проблема та?

aver:=0;
 for i:=1 to 2 do
   for j:=1 to 4 do
aver := aver + A[i,j];

aver := aver / (2*4); 
sigma:=0;
 for i:=1 to 2 do
   for j:=1 to 4 do
sigma := sigma + sqr(A[i,j] - aver);

sigma := sqrt(sigma /(2*4));