модули

[felmor]

Помогите пожалуйста решить эту задачу

[Doholyan]

Тебе..мне кажеться легше обратиться к Математикам....программа...не чего сложного...а, вот сама формула требует многих объяснений

[VadEr]

Код модуля:

Unit MyModule;

interface
  const N=100;

  type mas=array[1..N] of byte;
  
  function SrGeo(M:mas; N:integer) :real;
  function SrGar(M:mas; N:integer) :real;

implementation

  function SrGeo;
  var
     i:byte;
     G:Double;
  begin
    G := M[1];
    for i:=2 to N do
        G := G*M[i];
    SrGeo := Exp(1/N*Ln(G));
  end;

  function SrGar;
  var
     i:byte;
     H:real;
  begin
    H := 1/M[1];
    for i:=2 to N do
        H := H + 1/M[i];
    SrGar := H/N;
  end;

end.

Код главной программы:

Program main_prog;

Uses MyModule;

const N=100;
var
  A: mas;
  i: byte;
begin
  Randomize;
  for i:=1 to N do
      A[i] := Random(31)+10;
  Writeln('Srednee geometricheskoe: ', SrGeo(A,N):4:4);
  Writeln('Srednee garmonicheskoe : ', SrGar(A,N):4:4);
  Readln
end.

p.s. код нормально работает в Delphi, а в Pascal надо изменять режим процессора. Я точно не знаю, но кажется использовать {$N+} и {$N-} гдето внутри кода, что позволит использовать тип Double.