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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

Program n1;

var sum,kp,ko,a: integer;

begin

readln(a);

sum:=0;

ko:=0;

kp:=0;

while a<>0 do

begin

sum:=sum+a;

if a>0 then kp:=kp+1

else ko:=ko+1;

readln(a);

end;

writeln(sum);

writeln(kp-ko);

end.