Вводится последовательность из N целых чисел. Найти сумму положительных n количество отрицательных чисел - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Вводится последовательность из N целых чисел.Найти сумму положительных n количество отрицательных чисел. напишите полностью програму)

Решение задачи: «Вводится последовательность из N целых чисел. Найти сумму положительных n количество отрицательных чисел»

textual
Листинг программы
Const n=10;
Var b,c;
      a: array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
     If  a[i]>0 then b:=a[i]+b
     else
     inc(c);
Writeln(b,' ', c);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач, связанных с обработкой данных. Константа n определяет количество чисел, которые будут вводиться. В данном случае это значение равно 10. Переменные b и c инициализируются нулевыми значениями. Они будут использоваться для подсчета суммы положительных чисел и количества отрицательных чисел соответственно. Далее следует цикл for, который выполняется от 1 до n (количество чисел). Внутри цикла проверяется условие: если число a[i] (где i - номер текущего числа) больше нуля, то к сумме b прибавляется значение числа a[i]. Если же число отрицательное, то увеличивается значение переменной c. После завершения цикла выводится значение переменной b (сумма положительных чисел) и значение переменной c (количество отрицательных чисел). Таким образом, данный код позволяет найти сумму положительных чисел и количество отрицательных чисел в заданной последовательности.

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы