• Составьте программу, которая формирует массив, содержащий 18 случайных чисел, принадлежащих промежутку [2;9], и подсчитывает сумму положительных элементов. Для результата использовать форматный вывод.
    P.S. Буду очень благодарен!

Ответы 1

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

    begin

     var a := ArrRandom(18, 2, 9);

     a.Println;

     WriteFormat('S = {0:###}', a.Where(t -> t > 0).Sum)

    end.

    5 7 8 4 3 3 9 8 7 5 6 9 8 7 2 7 8 4S = 110
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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