Найти средние армфметические значения элементов столбцов двумерного массива.
Программа в Паскале

const nx=30;var i,j,n,m:integer;A:array[1..nx,1..nx] of integer;B:array[1..nx] of real;Sn:real;begin Write('Введите размер массива ');Readln(n);for j:=1 to n do beginfor i:=1 to n do beginA[i,j]:=random(100)-2;m:= m + A[i,j];end;Sn:= m/n;B[j]:= Sn;Sn:= 0.0;m:=0;end;for i:=1 to n do beginfor j:=1 to n do beginwrite(A[i,j]:9);end;writeln;end;for j:=1 to n do write(B[j]:9:4);end.