Двумерный массив, Помогите пожалуйста Опции

[goosberry]

Задача: найти среднее геометрическое положителных элементов каждого столбца матрицы d(n,m). Поместить их в массив m(n, m<12).

Мне удалось написать программу, вычисляющую лишь общее средее геометрическое, остальное, к сожалению, мне не понятно. Помогите пожалуйста, буду очень признательна)))

program zadacha;
uses crt;
type a=array [1..100, 1..100] of integer;
var d:a;
    i,j,n,m,k,pol:integer;
    sr:real;
begin
     writeln('vvedite kolichestvo stroc massiva');
     readln(n);
     writeln('vvedite kolichestvo stolbcov massiva');
     readln(m);
     for i:=1 to n do
         for j:=1 to m do
           begin
             writeln('vvedite element, d[',i,',',j,']');
             readln(d[i,j]);
           end;
     writeln;
     writeln('ischodnaya matrica:');
     for i:=1 to n do
       begin
         for j:=1 to m do
           write(d[i,j]:4);
           writeln;
       end;
      k:=0;
      pol:=1;
      for i:=1 to n do
      for j:=1 to m do
        begin
        if d[i,j]>0 then begin k:=k+1; pol:=pol*d[i,j]; sr:=pol/k; end;
        end;
        write ('k=', k, '  pol= ', pol, '  sr= ', sr:3:3);
     readkey;
end.

[Lapp]

Мне удалось написать программу, вычисляющую лишь общее средее геометрическое, остальное, к сожалению, мне не понятно.

Боюсь, что тебе непонятно не только остальное)).
Среднее геометрическое - это

(a₁*a₂*a₃*...*a_n)^1/n

Вот, смотри, я тут делаю массив ga (geometry average, извиняюсь за калькирование, не знаю как это будет по-англ), содержащий средние геометрические столбцов.

for j:=1 to m do begin
  ga[j]:=1;
  for i:=1 to n do if d[i,j]>0 then begin
    k:=k+1;
    ga[j]:=ga[j]*d[i,j]
  end
end;

И обрати внимание на порядок вложения циклов. Спрашивай, что неясно. Успехов.


Добавлено через 4 мин.
Ой, извини, я забыл извлечь корень (и не только))..
Вот так надо:

for j:=1 to m do begin
  g:=1;
  k:=0;
  for i:=1 to n do if d[i,j]>0 then begin
    k:=k+1;
    g:=g*d[i,j]
  end;
  if k>0 then ga[j]:=exp(Ln(g)/k)
end;