Сформировать массив, сформировать массив где каждый элемент соответствует среднему геомметр Опции

[Борис]

Дан массив С[M,N], m и n<=10
Сформировать одномерный массив A[n] где каждый элемент соответствует среднему геометрическому элементов соответствующих столбцов!
Напишите полный код плиз, очень срочно

готов заплатить 200 рублей за неё

нужно сделать с процедурами и функцией

[Ozzя]

Так она твоя и есть две строки добавил

Код

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

readln;

end.

То что то выводит

matrix
22 34 8 78 42
50 4 35 9 15
34 14 99 3 14
61 58 58 96 26
47 41 89 50 72
elementi poluchennogo massiva
42.80
30.20
57.80
47.20
33.80

for j:=1 to m do b[i]:=b[i]+a[j,i];
поменяй на
for j:=1 to m do b[i]:=b[i]*a[j,i];

Сообщение отредактировано: Ozzя - 11.01.2006 15:12