Question

ПАСКАЛЬ Найти сумму положительных и количество отрицательных элементов в одномерном массиве: 0; 15; 12; -9; -8; 58; 45; 36; -85; 58; 36; -45; 2; 3; 25; -9.

Answer 1

PascalABC.Net

begin

 var a := Arr(0, 15, 12, -9, -8, 58, 45, 36, -85, 57, 36, -45, 2, 3, 25, -9);

 Println('Исходный массив', a);

 Println('Отрицательных: ', a.Where(x -> x < 0).Count, ' | Сумма: ', a.Where(x -> x > 0).Sum);

end.

Answer 2

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

Ваш массив: 0; 15; 12; -9; -8; 58; 45; 36; -85; 58; 36; -45; 2; 3; 25; -9.

1. Найдем сумму положительных элементов: Сумма = 0 + 15 + 12 + 58 + 45 + 36 + 58 + 36 + 2 + 3 + 25 = 290

2. Найдем количество отрицательных элементов: Количество = 4 (отрицательные элементы: -9, -8, -85, -45)

Таким образом, сумма положительных элементов в массиве равна 290, а количество отрицательных элементов равно 4.