! PROGRAM P33 ! ! Simple loop with IF-THEN-ELSE ! IMPLICIT NONE INTEGER :: I,J REAL :: SUM,COUNT,AVE ! PRINT *, 'This is Program >> P33 - IF-THEN-ELSE' ! ! READ DATA ! READ *,I ! DO J=1,I READ *,SUM ,COUNT IF(COUNT == 0.0) THEN PRINT *,'COUNT ZERO' STOP ELSE AVE=SUM/COUNT PRINT *,'SUM=', SUM PRINT *,'COUNT=', COUNT PRINT *,'AVERAGE=', AVE END IF END DO STOP END PROGRAM P33