real a(8)integer i , ji = 0do j = 1, 8if(a(j) == 0) theni = i + 1endifenddoif(i == 8) then.........!符合条件，进行下一步else.........!不符合条件，跳回endif
