===============================================================================
试题说明 :
===============================================================================
给定fortran77程序prog1.for，其功能是给定20个数据，计
算并输出这些数据与平均值之差的绝对值之和。
请编写该程序，最后运行程序。其中部分程序与输出子程序
writedat在程序中已经给出，不得修改。
===============================================================================
程序 :
===============================================================================
dimension a(20)
data a/3.5,1.5,-2.5,4.5,2.5,3.0,5.5,-6.5,3.5,2.5,
* 1.5,2.5,4.5,-3.0,2.6,3.4,6.3,-3.8,5.2,-1.6/
write(*,100) s
100 format(1x,'s=',e12.4)
write(*,*)
call writedat(s)
end
subroutine writedat(s)
open(10,file='bc05.out',status='new')
write(10,100) s
100 format(1x,e12.4)
end
===============================================================================
所需数据 :
===============================================================================
@3 $bc05.out 001
|.5337e+02
#e
责任编辑：小草
