{* Задача285 *}

REM basic

' Имеется список учеников разных школ, сдававших экзамен по информатике, с указанием их фамилии, имени, школы и набранного балла. Напишите эффективную по времени работы и по используемой памяти программу, которая будет определять номера школ, в которых средний балл выше, чем средний по району.


CLS
INPUT "vvedite n"; n
Dim s(99), k(99)
For i = 1 To n
    INPUT "vvedite Text"; a$
    b$ = RIGHT$(a$, 6)
    For j = 1 To LEN(b$)
        q = ASC(Mid$(b$, j, 1)) - ASC("0")
        If q >= 0 And q  0 Then s(i) = s(i)  k(i)
Next
sr = s  n
For i = 1 To 99
    If s(i) >= sr Then PRINT i: r = r + 1: t = i
Next
If r = 1 Then PRINT "sr="; s(t)