Question

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

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.

Answer 2

Конечно, вот пример программы на Python, которая выполняет данную задачу:

pythonCopy code
# Исходные массивы F и C (замените на свои значения)
F = [2, -5, 3, -7, 1, 0, -4, 6, -8, 9, -2, 4, -3, 7, -1, 5, -6, 8, -9, 0, 4, -2, 6, -8, 1, -3, 5, -7, 9, -4]
C = [-1, 3, -2, 4, -5, 6, -7, 8, -9, 0, 2, -4, 6, -8, 1, -3, 5, -7, 9, -2, 4, -6, 8, -1, 3, -5, 7, -9, 0, 2]

# Инициализация переменных для произведения положительных и отрицательных чисел
positive_product = 1
negative_product = 1

# Перебор элементов массивов F и C
for num in F:
    if num > 0:
        positive_product *= num
    elif num < 0:
        negative_product *= num

for num in C:
    if num > 0:
        positive_product *= num
    elif num < 0:
        negative_product *= num

# Вывод результатов
print("Произведение положительных чисел:", positive_product)
print("Произведение отрицательных чисел:", negative_product)

Программа создает два массива F и C с целыми числами. Затем она перебирает числа в обоих массивах и вычисляет произведение положительных и отрицательных чисел отдельно. Результаты выводятся на экран. Не забудьте заменить значения массивов F и C на ваши собственные данные.