• В одномерном массиве, состоящем из n действительных элементов, вычислить:
    1) произведение положительных элементов массива

Ответы 1

  • // PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;  a.Println;  Writeln('П = ',a.Where(t->t>0).Aggregate(1.0,(x,y)->x*y))end.Примерn= 15-7.4 -0.9 -2.6 6.9 2.7 -7 7.8 3.6 7.6 -5.6 -1.4 8.4 -6.1 6.8 -3.1П = 227097.1842048
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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