Подсчитать количество положительных чисел и их сумму - Turbo Pascal

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

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

Код к задаче: «Подсчитать количество положительных чисел и их сумму - Turbo Pascal»

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.

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы