Question

В массиве из n элементов найти сумму положительных и произведение отрицательных элементов.

Answer 1

Ответ:

• begin
• var a := ReadArrInteger(ReadInteger('N:'));
• Println('Сумма положительных:', a.Sum(x->x>0?x:0));
• Println('Произведение отрицательных:', a.Product(x->x<0?x:1));
• end.

Пример работы:

Answer 2

===PascalABC.Net===

var

 arr: array [1..100] of integer;

 n, i, sum, multiply: integer;

begin

 WriteLn('Программа находит сумму положительных и произведение отрицательных чисел в массиве.');

 Write('Введите размерность массива: ');

 ReadLn(n);

 multiply := 1;

 for i := 1 to n do

 begin

   Write('Введите ', i, ' элемент массива: ');

   ReadLn(arr[i]);

 end;

 for i := 1 to n do

 begin

   if arr[i] >= 0 then

     sum += arr[i]

   else

     multiply *= arr[i];

 end;

 WriteLn('Сумма положительных чисел: ', sum);

 Write('Произведение отрицательных чисел: ', multiply);

end.

Answer 3

Для решения данной задачи вам потребуется пройтись по массиву, вычислить сумму положительных элементов и произведение отрицательных элементов. Вот как это можно сделать на примере псевдокода:

plaintextCopy code
Процедура НайтиСуммуИПроизведениеЭлементов(массив):
    сумма_положительных = 0
    произведение_отрицательных = 1
    
    Для каждого элемента в массиве:
        Если элемент > 0:
            сумма_положительных = сумма_положительных + элемент
        Иначе, если элемент < 0:
            произведение_отрицательных = произведение_отрицательных * элемент
            
    Вернуть сумма_положительных, произведение_отрицательных

Исходный_массив = [2, -3, 5, -7, 1]
сумма, произведение = НайтиСуммуИПроизведениеЭлементов(Исходный_массив)
Вывести("Сумма положительных элементов:", сумма)
Вывести("Произведение отрицательных элементов:", произведение)

Вы можете адаптировать этот псевдокод под используемый вами язык программирования. Просто создайте функцию или метод, который принимает массив как входной аргумент и возвращает сумму положительных элементов и произведение отрицательных элементов.