program enshu03bb12                                             
implicitnone
integer::seireki,joutai
real,dimension(12)::kion
real::kion_nen_heikin,kion_nen_souwa
real::kion_nen_bunsan,kion_nen_hensa
real::kion2_nen_souwa,kion2_nen_heikin
real,dimension(12)::kion_tsuki_heikin,kion_tsuki_souwa
integer::nensuu
kion_tsuki_souwa(1)=0.0
kion_tsuki_souwa(2)=0.0
kion_tsuki_souwa(3)=0.0
kion_tsuki_souwa(4)=0.0
kion_tsuki_souwa(5)=0.0
kion_tsuki_souwa(6)=0.0
kion_tsuki_souwa(7)=0.0
kion_tsuki_souwa(8)=0.0
kion_tsuki_souwa(9)=0.0
kion_tsuki_souwa(10)=0.0
kion_tsuki_souwa(11)=0.0
kion_tsuki_souwa(12)=0.0
nensuu=0
do
read(*,'(i4,12f5.1)',iostat=joutai)seireki,kion
if(joutai/=0)exit
nensuu=nensuu+1
kion_tsuki_souwa(1)=kion_tsuki_souwa(1)+kion(1)
kion_tsuki_souwa(2)=kion_tsuki_souwa(2)+kion(2)
kion_tsuki_souwa(3)=kion_tsuki_souwa(3)+kion(3)
kion_tsuki_souwa(4)=kion_tsuki_souwa(4)+kion(4)
kion_tsuki_souwa(5)=kion_tsuki_souwa(5)+kion(5)
kion_tsuki_souwa(6)=kion_tsuki_souwa(6)+kion(6)
kion_tsuki_souwa(7)=kion_tsuki_souwa(7)+kion(7)
kion_tsuki_souwa(8)=kion_tsuki_souwa(8)+kion(8)
kion_tsuki_souwa(9)=kion_tsuki_souwa(9)+kion(9)
kion_tsuki_souwa(10)=kion_tsuki_souwa(10)+kion(10)
kion_tsuki_souwa(11)=kion_tsuki_souwa(11)+kion(11)
kion_tsuki_souwa(12)=kion_tsuki_souwa(12)+kion(12)
kion_nen_souwa=0.0
kion_nen_souwa=kion_nen_souwa+kion(1)
kion_nen_souwa=kion_nen_souwa+kion(2)
kion_nen_souwa=kion_nen_souwa+kion(3)
kion_nen_souwa=kion_nen_souwa+kion(4)
kion_nen_souwa=kion_nen_souwa+kion(5)
kion_nen_souwa=kion_nen_souwa+kion(6)
kion_nen_souwa=kion_nen_souwa+kion(7)
kion_nen_souwa=kion_nen_souwa+kion(8)
kion_nen_souwa=kion_nen_souwa+kion(9)
kion_nen_souwa=kion_nen_souwa+kion(10)
kion_nen_souwa=kion_nen_souwa+kion(11)
kion_nen_souwa=kion_nen_souwa+kion(12)
kion2_nen_souwa=0.0
kion2_nen_souwa=kion2_nen_souwa+kion(1)**2
kion2_nen_souwa=kion2_nen_souwa+kion(2)**2
kion2_nen_souwa=kion2_nen_souwa+kion(3)**2
kion2_nen_souwa=kion2_nen_souwa+kion(4)**2
kion2_nen_souwa=kion2_nen_souwa+kion(5)**2
kion2_nen_souwa=kion2_nen_souwa+kion(6)**2
kion2_nen_souwa=kion2_nen_souwa+kion(7)**2
kion2_nen_souwa=kion2_nen_souwa+kion(8)**2
kion2_nen_souwa=kion2_nen_souwa+kion(9)**2
kion2_nen_souwa=kion2_nen_souwa+kion(10)**2
kion2_nen_souwa=kion2_nen_souwa+kion(11)**2
kion2_nen_souwa=kion2_nen_souwa+kion(12)**2
kion_nen_heikin=kion_nen_souwa/12.0
kion2_nen_heikin=kion2_nen_souwa/12.0
kion_nen_bunsan=kion2_nen_heikin-kion_nen_heikin**2
kion_nen_hensa=sqrt(kion_nen_bunsan)
write(*,'(i4,13f6.1,2f6.2)')seireki,kion,kion_nen_heikin&
,kion_nen_bunsan,kion_nen_hensa
enddo
kion_tsuki_heikin(1)=kion_tsuki_souwa(1)/real(nensuu)
kion_tsuki_heikin(2)=kion_tsuki_souwa(2)/real(nensuu)
kion_tsuki_heikin(3)=kion_tsuki_souwa(3)/real(nensuu)
kion_tsuki_heikin(4)=kion_tsuki_souwa(4)/real(nensuu)
kion_tsuki_heikin(5)=kion_tsuki_souwa(5)/real(nensuu)
kion_tsuki_heikin(6)=kion_tsuki_souwa(6)/real(nensuu)
kion_tsuki_heikin(7)=kion_tsuki_souwa(7)/real(nensuu)
kion_tsuki_heikin(8)=kion_tsuki_souwa(8)/real(nensuu)
kion_tsuki_heikin(9)=kion_tsuki_souwa(9)/real(nensuu)
kion_tsuki_heikin(10)=kion_tsuki_souwa(10)/real(nensuu)
kion_tsuki_heikin(11)=kion_tsuki_souwa(11)/real(nensuu)
kion_tsuki_heikin(12)=kion_tsuki_souwa(12)/real(nensuu)
write(*,'(i4,12f6.2)')nensuu,kion_tsuki_heikin
endprogramenshu03bb12