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

Программа в Паскале

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 begin

for i:=1 to n do begin

A[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 begin

for j:=1 to n do begin

write (A[i, j]:9) ; end;

writeln; end;

for j:=1 to n do

write (B[j]:9:4) ; end.