• Вывести пять чисел,найти их сумму произведения и среднее арифметическое.
    Числа любые.

Ответы 1

  • //PascalABC.NET версия 3.3.1590 от 03.12.2017//Если программа не запускается, то обновите версиюbegin    var a := ArrRandomInteger(5, -50, 50);    writeln('Вывод = ', a);    writeln('Сумма = ', a.Sum);    writeln('Произведение = ', a.Aggregate(1, (x, y)-> x * y));    writeln('Среднее арифметическое = ', a.Sum / a.Count);end.
    • Автор:

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

Войти через Google

или

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

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

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