编辑代码

C------求两种平均値------
      PROGRAM Example_1_1
      REAL a, b, av1, av2
      READ (*,*) a, b
      av1 = (a + b)/2
      av2 = sqrt(a*b)
      WRITE(*,*) av1, av2
      end