Подсчитать количество положительных чисел и их сумму - 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.

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

  1. В программе объявлены три переменные: a, po и k, которые являются целочисленными типами данных.
  2. В цикле repeat-until происходит чтение числа от пользователя и проверка его значения.
  3. Если число больше нуля (a>0), то переменная po увеличивается на значение этого числа, а переменная k увеличивается на единицу.
  4. Если число равно нулю (a=0), то выводится сумма положительных чисел, хранящаяся в переменной po, и количество положительных чисел, хранящееся в переменной k.
  5. Программа завершается после чтения нулевого числа.

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

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