Ask a New Question
Search
Questions and answers by
Tonysmile
Answers (1)
PROGRAM SMILE Real:: A, B, C, D, E, F,SUM,AVE WRITE (*,*) 'ENTER THE NUMBERS' READ(*,*) A, B, C, D, E, F IF (A = 0) .OR. (B = 0) .OR. (C=0) .OR. (D = 0) .OR. (E = 0) .OR. (F = 0) THEN END ELSE SUM= A+B+C+D+E+F AVE= SUM/6 ENDIF WRITE (*,*) 'THE SUM IS ',
