Question

Ввести одномерный массив A из 15 элементов. Определить в нём среднее геометрическое элементов, стоящих на нечётных позициях. Pascal

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(15);
  var s:=Range(0,a.Length-1,2).Select(i->a[i]);
  Writeln('Среднее геометрическое элементов на нечетных позициях ',
      (s.Aggregate(1.0,(p,q)->(p*q)))**(1/s.Count))
end.

Answer 2

Для нахождения среднего геометрического элементов, стоящих на нечётных позициях в одномерном массиве A из 15 элементов, нужно выполнить следующие шаги:

1. Ввести массив A из 15 элементов.
2. Вычислить произведение всех элементов, стоящих на нечётных позициях.
3. Найти среднее геометрическое элементов, вычисленное на предыдущем шаге.

Ниже приведён пример реализации алгоритма на языке Pascal:

pascalCopy code
program AverageGeometric;

const
  N = 15;

var
  A: array[1..N] of real;
  i: integer;
  product, geometricMean: real;

begin
  // Ввод массива A из 15 элементов
  writeln('Введите ', N, ' элементов массива:');
  for i := 1 to N do
  begin
    write('A[', i, ']: ');
    readln(A[i]);
  end;

  // Вычисление произведения элементов на нечётных позициях
  product := 1;
  for i := 1 to N do
  begin
    if i mod 2 <> 0 then
      product := product * A[i];
  end;

  // Нахождение среднего геометрического
  geometricMean := exp(ln(product) / (N div 2));

  // Вывод результата
  writeln('Среднее геометрическое элементов, стоящих на нечётных позициях: ', geometricMean:0:2);
end.

Обратите внимание, что в этом примере используется функция exp для вычисления экспоненты и ln для вычисления натурального логарифма. Они позволяют найти корень степени 1/(N div 2) от произведения элементов на нечётных позициях, что и даёт среднее геометрическое.