• Создать массив вещественных чисел. Вычислить произведение элементов массива с нечетными номерами. Упорядочить элементы массива по возрастанию.

Ответы 1

  • PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     var a := SeqRandomReal(ReadInteger('n='), -99, 99)

         .Select(t -> Round(t, 2)).ToArray;

     a.Println;

     a.Where((v, i)-> i.IsEven).Aggregate(1.0, (p, q)-> p * q).Println;

     a.Sort;

     a.Println

    end.

    answer img
    • Автор:

      angelfj41
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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