Question

задана последовательность из N вешественных положительных чисел. найти среднее геометрическое этих чисел C и определить, сколько среди них чисел меньше C, равных C и больших C

Answer 1

var a: array of real;
    i,n,m,k,p: integer;
    s: real;
begin
  write('n = ');  readln(n);
  setlength(a,n);
  s:=1;
  randomize;
  writeln('массив:');
  for i:=0 to n-1 do
  begin
    a[i]:=random(200)/1000;
    s:=s*a[i];
    write(a[i]:5:3,' ');
  end;
  writeln;
  s:=power(s,1/n);
  p:=0; m:=0; k:=0;
  writeln('среднее геометрическое: ',s);
  for i:=0 to n-1 do
  begin
    if a[i]<s then inc(m);
    if a[i]>s then inc(k);
    if a[i]=s then inc(p);
  end;  
  writeln('меньше: ',m,'  равно: ',p,'   больше: ',k);
end.

n = 10
массив:
0.165 0.133 0.134 0.190 0.151 0.132 0.187 0.028 0.021 0.017 
среднее геометрическое: 0.0854754255570728
меньше: 3  равно: 0   больше: 7