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

    Pascal

Ответы 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 img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years