Babka2002

15.10.2020 10:00

Информатика

Есть ответ 👍

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

195

203

Посмотреть ответы 3

Ответы на вопрос:

freezcat

Информатика

4,8(83 оценок)

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

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

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

An0NimKa00

Информатика

4,4(28 оценок)

===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.

Litoli

Информатика

4,5(38 оценок)

Наверняка 2 по моему мнению

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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