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

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.