PROGRAM ex5_4
 
      IMPLICIT NONE
      INTEGER :: n = 0, mark(1000), i, max
      REAL :: w = 0.0E0, v = 0.0E0, mean, sd
 
      DO n = 1, 1000
        PRINT *, '轤ｹ謨ｰ�域紛謨ｰ�檎ｵゆｺ��雋�縺ｮ謨ｰ�峨���'
 
 
        READ *, mark(n)
        IF (mark(n) < 0) EXIT
        w = w + mark(n)
        v = v + mark(n)**2
 
      END DO
 
      n = n - 1
      IF ( n > 0 ) THEN
        mean = w / n
        sd = SQRT( v / n - mean ** 2 )
        PRINT '( 1X, "蟷ｳ蝮�せ   = ", F5.1 )', mean
        PRINT '( 1X, "讓呎ｺ門￥蟾ｮ = ", F5.1 )', sd
      END IF
 
      PRINT '( 1X, "逕溷ｾ堤ｷ乗焚 = ", I5 )', n
 
      max = mark(1)
      DO i = 2, n
        IF (mark(i) > max) THEN
          max = mark(i)
        END IF
      END DO
      PRINT *, max
 
 
END PROGRAM ex5_4

UFJPR1JBTSBleDVfNAogICAgIAogICAgICBJTVBMSUNJVCBOT05FCiAgICAgIElOVEVHRVIgOjogbiA9IDAsIG1hcmsoMTAwMCksIGksIG1heAogICAgICBSRUFMIDo6IHcgPSAwLjBFMCwgdiA9IDAuMEUwLCBtZWFuLCBzZAogICAgIAogICAgICBETyBuID0gMSwgMTAwMAogICAgICAgIFBSSU5UICosICfovaTvvbnorKjvvbDvv73ln5/ntJvorKjvvbDvv73mqo7vvbXjgobvvbrvv73vv73pm4vvv73nuLrvva7orKjvvbDvv73ls6jvv73vv73vv70nCiAgICAgICAgCiAgICAgCiAgICAgICAgUkVBRCAqLCBtYXJrKG4pCiAgICAgICAgSUYgKG1hcmsobikgPCAwKSBFWElUCiAgICAgICAgdyA9IHcgKyBtYXJrKG4pCiAgICAgICAgdiA9IHYgKyBtYXJrKG4pKioyCgogICAgICBFTkQgRE8KICAgICAKICAgICAgbiA9IG4gLSAxCiAgICAgIElGICggbiA+IDAgKSBUSEVOCiAgICAgICAgbWVhbiA9IHcgLyBuCiAgICAgICAgc2QgPSBTUVJUKCB2IC8gbiAtIG1lYW4gKiogMiApCiAgICAgICAgUFJJTlQgJyggMVgsICLon7fvvbPona7vv73jgZsgICA9ICIsIEY1LjEgKScsIG1lYW4KICAgICAgICBQUklOVCAnKCAxWCwgIuiuk+WRju+9uumWgO+/peifvu+9riA9ICIsIEY1LjEgKScsIHNkCiAgICAgIEVORCBJRgogICAgIAogICAgICBQUklOVCAnKCAxWCwgIumAlea6t++9vuWgpO+9t+S5l+eEmiA9ICIsIEk1ICknLCBuCiAgICAgIAogICAgICBtYXggPSBtYXJrKDEpCiAgICAgIERPIGkgPSAyLCBuCiAgICAgICAgSUYgKG1hcmsoaSkgPiBtYXgpIFRIRU4KICAgICAgICAgIG1heCA9IG1hcmsoaSkKICAgICAgICBFTkQgSUYKICAgICAgRU5EIERPCiAgICAgIFBSSU5UICosIG1heAogICAgICAKICAgICAKRU5EIFBST0dSQU0gZXg1XzQ=

ODYKOTIKOTIKNjgKOTIKMTAwCjcyCjUxCjYxCjM2CjUwCjEwMAo3MAotOTkK

86
92
92
68
92
100
72
51
61
36
50
100
70
-99