Водномерном массиве, состоящем из n действительных - вопрос №8299416 от 21VR 05.04.2023 01:16

Question

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

21VR · Answer

// 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