作业帮 > 综合 > 作业

pascal编程while循环简单求和习题

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/27 08:18:46
pascal编程while循环简单求和习题
读入一组数,遇零结束,打印出其中正负数的个数及各自的总和.
输入一组数,以0结尾.
输出有两行.第一行为正数个数及总和.第二行为负数个数及总和.
23 -5 12 1 -40 -8 0
3 36
3 -53
pascal编程while循环简单求和习题
var a,b,c,x,y:integer;
begin
read(a)
while a0 do begin
if a