• Составьте программу, которая формирует массив из 12 случайных целых чисел , принадлежащих промежутку [-40; 40], и вычесляет сумму положительных чисел

Ответы 1

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

    begin

     var a := ArrRandom(12, -40, 40);

     a.Println;

     Println('Сумма положительных значений равна', a.Where(t -> t > 0).Sum)

    end.

    22 -2 -38 -14 22 -3 -26 6 3 -37 -8 10Сумма положительных значений равна 63
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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