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

Question

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

Answer 1

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.