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

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

Задать свой вопрос
Данил Ароскин
А язык какой?
Nelli Nabavkova
Паскаль
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]lt;s then inc(m);
    if a[i]gt;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

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт