Question

Напишите программу, которая в последовательности целых чисел определяет их сумму и подсчитывает разность количестваположительных и отрицательных чисел последовательности. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). программа должна вывести два числа: сумму чисел и разность количества положительных и отрицательных чисел.

Answer 1

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.