Дан массив С[M,N], m и n<=10 Сформировать одномерный массив A[n] где каждый элемент соответствует среднему геометрическому элементов соответствующих столбцов! Напишите полный код плиз, очень срочно
program exzamen; uses crt; var A : array[1..10,1..10] of integer; B : array[1..10] of real; m,n,i,j : integer;
procedure vvod(m: integer;n : integer); begin randomize;
for i:=1 to m do begin for j:=1 to n do begin A[i,j]:=random(100);
end; end; end;
procedure vivod(m: integer;n : integer); begin writeln('matrix'); for i:=1 to m do begin for j:=1 to n do begin Write(' ',A[i,j],' '); end; writeln; end; end;
function raschet(m: integer;i:integer): real; var j : integer; begin for j:=1 to m do b[i]:=b[i]+a[j,i]; raschet:=exp(ln(B[i]/m)); end;
begin
clrscr;
vvod(m,n); vivod(m,n); for i:=1 to n do b[i]:=0; writeln('elementi poluchennogo massiva'); for i:=1 to n do writeln(raschet(m,i):5:2);
clrscr; n:=5; m:=5; vvod(m,n); vivod(m,n); readln; for i:=1 to n do b[i]:=0; writeln('elementi poluchennogo massiva'); for i:=1 to n do writeln(raschet(m,i):5:2);
program exzamen; uses crt; var A : array[1..10,1..10] of integer; B : array[1..10] of real; m,n,i,j : integer;
procedure vvod(m: integer;n : integer); begin randomize; writeln('enter M'); readln(m); writeln('enter N'); readln(n); for i:=1 to m do begin for j:=1 to n do begin A[i,j]:=integer(random(100)-50);
end; end; end;
procedure vivod(m: integer;n : integer); begin writeln('matrix'); for i:=1 to m do begin for j:=1 to n do begin Write(' ',A[i,j],' '); end; writeln; end; end;
function raschet(m: integer;i:integer): real; var j : integer; begin for j:=1 to m do b[i]:=b[i]+a[j,i]; raschet:=exp((1/m)*ln(B[i])); end;
begin
clrscr;
vvod(m,n); vivod(m,n); readln; for i:=1 to n do b[i]:=0; writeln('elementi poluchennogo massiva'); for i:=1 to n do writeln(raschet(m,i):5:2);
program exzamen; uses crt; var A : array[1..10,1..10] of integer; B : array[1..10] of real; m,n,i,j : integer;
procedure vvod(m: integer;n : integer); begin randomize;
for i:=1 to m do begin for j:=1 to n do begin A[i,j]:=random(100);
end; end; end;
procedure vivod(m: integer;n : integer); begin writeln('matrix'); for i:=1 to m do begin for j:=1 to n do begin Write(' ',A[i,j],' '); end; writeln; end; end;
function raschet(m: integer;i:integer): real; var j : integer; begin for j:=1 to m do b[i]:=b[i]+a[j,i]; raschet:=exp(ln(B[i]/m)); end;
begin
clrscr; n:=5; m:=5; vvod(m,n); vivod(m,n);
for i:=1 to n do b[i]:=0; writeln('elementi poluchennogo massiva'); for i:=1 to n do writeln(raschet(m,i):5:2);