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

Предыдущий
вопрос Следующий
вопрос

program ArrayElements;

cons
n = 5; //размер массива

va
arr: array[1..n] of integer; //объявление массив
i, negProd, posSum: integer; //переменные для индекса, произведения и суммы

begi
negProd := 1; //инициализация переменной произведени
posSum := 0; //инициализация переменной суммы

//заполняем массив случайными значениям
for i := 1 to n d
arr[i] := random(20) - 10; //значения от -10 до 10

//находим произведение отрицательных элементов и сумму положительны
for i := 1 to n d
begi
if arr[i] < 0 the
negProd := negProd * arr[i
else if arr[i] > 0 the
posSum := posSum + arr[i]
end;

writeln('Массив:')
for i := 1 to n d
write(arr[i], ' '); //выводим массив

writeln
writeln('Произведение отрицательных элементов: ', negProd); //выводим произведени
writeln('Сумма положительных элементов: ', posSum); //выводим сумму

end.