Question

Дан массив M в интервале от -15 до 30; Найти сумму и количество отрицательных элементов.

Answer 1

// PascalABC.NET 3.0, сборка 1128
begin
  var n:=ReadInteger('n=');
  var M:=ArrRandom(n,-15,30).Println(',');
  WriteLnFormat('Сумма {0} отрицательных элементов равна {1}',
    M.Where(x->x<0).Count,M.Where(x->x<0).Sum)
end.

Тестовое решение:
n= 13
-6,-4,-3,-2,20,0,-13,0,-11,9,15,-11,-8
Сумма 8 отрицательных элементов равна -58

Answer 2

Для нахождения суммы и количества отрицательных элементов в массиве M, который находится в интервале от -15 до 30, можно использовать следующий алгоритм:

1. Инициализировать переменные `sum` и `count` со значением 0. 2. Проходить по каждому элементу массива M. 3. Если текущий элемент отрицательный, то увеличивать переменную `sum` на значение этого элемента и увеличивать переменную `count` на 1. 4. По завершении прохода по всем элементам массива M, вернуть найденную сумму и количество отрицательных элементов.

Пример кода на языке Python:

M = [...]  # Здесь нужно указать значения элементов массива M

sum = 0
count = 0

for num in M:
    if num < 0:
        sum += num
        count += 1

print("Сумма отрицательных элементов:", sum)
print("Количество отрицательных элементов:", count)

Примечание: Значения элементов массива M не предоставлены в вашем вопросе, поэтому необходимо заменить `[...]` на фактические значения элементов массива M.

Пожалуйста, уточните, если у вас есть дополнительные вопросы.