14 由于上述限制,在某些情况下循环终止语句无法确 定。如,输入10个实数,分别计算其中正数、负数个数和 各自的平均值: nz=0 nf=nf+1 nf=0 pf=pf+ pz=0.0 100 end if f=0.0 pz=pz/nz do100,n=1,10 pf=pf/nf read(", *)x write(*, *)nz, pz, nf, pf if(x gt.0.0)then end nz=nz+1 pz=pz+X else 错误 2021/2/2414 由于上述限制，在某些情况下循环终止语句无法确 定。如，输入10个实数，分别计算其中正数、负数个数和 各自的平均值： nz=0 nf=0 pz=0.0 pf=0.0 do 100, n=1, 10 read(* , *) x if(x.gt.0.0) then nz=nz+1 pz=pz+x else nf=nf+1 pf=pf+x 100 end if pz=pz/nz pf=pf/nf write(* , *)nz,pz,nf,pf end 错误 2021/2/24