Question

Из n, введенных с клавиатуры чисел, найти сумму и кол-во отрицательных (паскаль)

Answer 1

Var
i,n,sum,k,a:Integer;
begin
Writeln('Введмте кол-во чисел в последовательности');
ReadLn(n);
Writeln('Введите числа');
for i:=1 to n do
begin
Readln(a);
if a<0 then
begin
sum:=sum+a;
k:=k+1;
end;
end;
WriteLn('В данной последовательности ', k, ' отрицательный(ых) элемента(ов)');
WriteLn('Их сумма = ', sum);
end.

Answer 2

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

pythonCopy code
def main():
    n = int(input("Введите количество чисел n: "))
    sum_of_negatives = 0
    count_of_negatives = 0

    for i in range(n):
        num = int(input(f"Введите число {i + 1}: "))
        if num < 0:
            sum_of_negatives += num
            count_of_negatives += 1

    print(f"Сумма отрицательных чисел: {sum_of_negatives}")
    print(f"Количество отрицательных чисел: {count_of_negatives}")


if __name__ == "__main__":
    main()

Как только запустите программу, она попросит вас ввести количество чисел (n), а затем попросит ввести сами числа по одному за раз. После того, как будут введены все числа, программа выведет сумму отрицательных чисел и их количество.

Примечание: В Pascal код будет выглядеть схожим образом по структуре, однако синтаксис будет отличаться.