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