- 3


 


/ = <>

/ :

 


<> </> *

 


 

' / /

ls

? : :

do

read Hn$, dl$, zp fm$, dl$, zp

if fm$= then exit do fm$=

? fm$, dl$, zp fm$, dl$, zp

sum = sum + zp sum

=

sum + zp

n = n + 1 n = n + 1

loop

sr = sum/n sr

=

sum/n

? /=; sr ( 3/nama=;sr)

? / : (/ :)

restore zplts

ns = 0 ns

= 0

for k = 1 to n k = 1

read fm$, dl$, zp fm$, dl$, zp

if zp > sr then zp > sr

? fni$, zp (fm$, zp)

ns = ns + 1 ns

=

ns + 1

end if

next k

if ns = 0 then ns = 0

? e  ( )

end if