Вводится последовательность из N целых чисел. Найти сумму положительных n количество отрицательных чисел - Turbo Pascal
Формулировка задачи:
Решение задачи: «Вводится последовательность из N целых чисел. Найти сумму положительных n количество отрицательных чисел»
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 (количество отрицательных чисел). Таким образом, данный код позволяет найти сумму положительных чисел и количество отрицательных чисел в заданной последовательности.