PROGRAM ex5_4 
IMPLICIT NONE 
INTEGER :: n = 0, mark, max
REAL :: w = 0.0E0, v = 0.0E0, mean, sd
DO n = 1, 1000 
IF (n==1)THEN
max=mark
ELSE IF(mark>max)THEN
max=mark
END IF
PRINT *, '点数（整数，終了は負の数）は？' 
READ *, mark 
IF ( mark < 0 ) EXIT                   ! これでループを抜ける 
w = w + mark 
v = v + mark ** 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 
PRINT '( 1x,"最高点=", I5)', max
END PROGRAM ex5_4

UFJPR1JBTSBleDVfNCAKSU1QTElDSVQgTk9ORSAKSU5URUdFUiA6OiBuID0gMCwgbWFyaywgbWF4ClJFQUwgOjogdyA9IDAuMEUwLCB2ID0gMC4wRTAsIG1lYW4sIHNkCkRPIG4gPSAxLCAxMDAwIApJRiAobj09MSlUSEVOCm1heD1tYXJrCkVMU0UgSUYobWFyaz5tYXgpVEhFTgptYXg9bWFyawpFTkQgSUYKUFJJTlQgKiwgJ+eCueaVsO+8iOaVtOaVsO+8jOe1guS6huOBr+iyoOOBruaVsO+8ieOBr++8nycgClJFQUQgKiwgbWFyayAKSUYgKCBtYXJrIDwgMCApIEVYSVQgICAgICAgICAgICAgICAgICAgISDjgZPjgozjgafjg6vjg7zjg5fjgpLmipzjgZHjgosgCncgPSB3ICsgbWFyayAKdiA9IHYgKyBtYXJrICoqIDIgCkVORCBETyAKbiA9IG4gLSAxIApJRiAoIG4gPiAwICkgVEhFTiAKbWVhbiA9IHcgLyBuIApzZCA9IFNRUlQoIHYgLyBuIC0gbWVhbiAqKiAyICkgClBSSU5UICcoIDFYLCAi5bmz5Z2H54K5ICAgPSAiLCBGNS4xICknLCBtZWFuIApQUklOVCAnKCAxWCwgIuaomea6luWBj+W3riA9ICIsIEY1LjEgKScsIHNkIApFTkQgSUYgClBSSU5UICcoIDFYLCAi55Sf5b6S57eP5pWwID0gIiwgSTUgKScsIG4gClBSSU5UICcoIDF4LCLmnIDpq5jngrk9IiwgSTUpJywgbWF4CkVORCBQUk9HUkFNIGV4NV80

ODYKOTIKOTIKNjgKOTIKMTAwCjcyCjUxCjYxCjM2CjUwCjEwMAo3MAotOTk=

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