Помогите пожалуйста написать программу. В одномерном массиве, состоящем из n вещественных элементах. Вычислить произведение положительных элементов массива.
ArrRandom(ReadInteger('Укажите длину массива: '), -2147483640, 2147483640)
.Where(x -> x > 0)
.Aggregate(BigInteger.One, (x, y) -> x * y).Println;
end.
0 votes Thanks 0
boguor
KnowUser1, Боббик на ТурбоПаскаль не пишет( присоединитесь пожалуйста: znanija.com/task/34226103 , очень сильно нужно, выручите(
boguor
Я там покидал примеры, может быть получится
KnowsUser1
Спешу вас обрадовать, но я, так же как и Бобби, не пишу на ТурбоПаскаль, и мало того, не очень то и хочу вникать в него, ибо для меня это будет равносильно как с бентли пересесть на дедовы жигули
boguor
Буквально одну задачку, пожалуйста, выручите прям не реально...
KnowsUser1
Я не сильно похож на археолога, что бы раскапывать нечто настолько древнее. Мой вам совет - учите современные языки. По тому же PascalABC.NET на их сайте есть очень хорошая книга. А Знание ABC.NET даст вам больше преимущество в дальнейшем изучении, например, С#, ибо на шарпе ABC.NET и написан
Answers & Comments
C# 8.0:
var Arr = new double[]{-2,-1,1,2,3}; double Mult=1;
foreach(int i in Arr) if(i>0) Mult*=i;
Console.WriteLine(Mult);
Ответ:
PascalABC.NET
begin
ArrRandom(ReadInteger('Укажите длину массива: '), -2147483640, 2147483640)
.Where(x -> x > 0)
.Aggregate(BigInteger.One, (x, y) -> x * y).Println;
end.