Question

SOOS!!! Срочняк надо, ПОМОГИТЕ ПОЖАЛУЙСТА!! Найти сумму отрицательных чисел массива размера n.

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Сумма отрицательных значений равна ',a.Where(t->t<0).Sum)
end.

Пример
n= 20
46 -29 -48 -34 36 13 45 50 22 -36 -5 -17 -19 -4 38 19 44 -8 -9 -35
Сумма отрицательных значений равна -244

Answer 2

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

var a: array[0..100] of Integer;
n,i,s,sum: Integer;
begin
writeln('Введите кол-во чисел, не привышающие число 100');
readln(n);
Dec(n);
for i:=0 to n do
begin
writeln('Введите ',i+1,' число');
readln(s);
a[i]:=s;
Inc(sum,a[i]);
end;
writeln('Полученный ответ: ',sum);
end.

Answer 3

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

pythonCopy code
def сумма_отрицательных_чисел(массив):
    сумма = 0
    for число in массив:
        if число < 0:
            сумма += число
    return сумма

# Пример использования:
массив = [1, -2, 3, -4, 5, -6]
сумма_отрицательных = сумма_отрицательных_чисел(массив)
print("Сумма отрицательных чисел в массиве:", сумма_отрицательных)

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