Напишите программу пожалуйста: Дан массив F, C - целых 30 чисел . Найдите произведение...

Question

Напишите программу пожалуйста:
Дан массив F, C - целых 30 чисел . Найдите произведение положительных и отрицательных чисел.

Comments

Найти производные чисел? Производная от любого числа равна нулю))

---

не производные, а произведение ошибся.

Answer 1

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
    var a := ArrRandomInteger(30, -100, 100);
    Println(a);
    Writeln('Произведение положительных ', a.Where(x -> x > 0).Aggregate(1, (x, y)-> x * y));
    Writeln('Произведение отрицательных ', a.Where(x -> x < 0).Aggregate(1, (x, y)-> x * y));
end.

Comments

Чего не знаешь? И зачем вообще пишешь?