Подсчитать количество положительных чисел и их сумму - Turbo Pascal
Формулировка задачи:
Введя произвольные числа до тех пор,пока не будет введен 0, подсчитать среди них количество положительных чисел и их сумму...
Решение задачи: «Подсчитать количество положительных чисел и их сумму»
textual
Листинг программы
program help; var a,po,k:integer; begin repeat writeln('Число: '); readln(a); if a>0 then begin po:=po+a ; K:=K+1; end; if a=0 then begin writeln('Сумма положительных чисел: ',po); writeln('Количество положительных чисел: ',k); end; until a=0; readln; end.
Объяснение кода листинга программы
- В программе объявлены три переменные: a, po и k, которые являются целочисленными типами данных.
- В цикле repeat-until происходит чтение числа от пользователя и проверка его значения.
- Если число больше нуля (a>0), то переменная po увеличивается на значение этого числа, а переменная k увеличивается на единицу.
- Если число равно нулю (a=0), то выводится сумма положительных чисел, хранящаяся в переменной po, и количество положительных чисел, хранящееся в переменной k.
- Программа завершается после чтения нулевого числа.