Вывести на экран фамилии и имена трех худших по среднему баллу учеников

43220209

На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой средней школы. В первой строке сообщается количество учеников N, которое не меньше 10, но не превосходит 100, каждая из следующих N строк имеет следующий формат: <Фамилия><Имя><оценки>, где <Фамилия> – строка, состоящая не более чем из 20 символов, <Имя> – строка, состоящая не более чем из 15 символов, <оценки> – через пробел три целых числа, соответствующие оценкам по пятибалльной системе. <Фамилия> и <Имя>, а также <Имя> и <оценки> разделены одним пробелом. Пример входной строки: Иванов Петр 4 5 3 Требуется написать как можно более эффективную программу (укажите используемую версию языка программирования, например, Borland Pascal 7.0), которая будет выводить на экран фамилии и имена трех худших по среднему баллу учеников. Если среди остальных есть ученики, набравшие тот же средний балл, что и один из трех худших, то следует вывести и их фамилии и имена. Объясните там где вопросы)Почему так?
INPUT "vvedite n"; n
DIM a$(n), d(n)
FOR i = 1 TO n
    INPUT "vvedite text"; b$
    FOR j = LEN(b$) TO LEN(b$) - 4 STEP -1  '?????
        IF MID$(b$, j, 1) <> " " THEN d(i) = d(i) + VAL(MID$(b$, j, 1))  '?????
    NEXT
    a$(i) = MID$(b$, 1, LEN(b$) - 6)    '?????
    d(i) = d(i) / 3
NEXT
q = 10    '?????
FOR i = 1 TO 3    '?????
    max = -1     '?????
    FOR j = 1 TO n
        IF d(j) > max AND d(j) < q THEN max = d(j)
    NEXT
    q = max
NEXT
FOR i = 1 TO n
    IF d(i) >= q THEN PRINT a$(i)     '?????
NEXT
1 ответ

43220209

Решение не от той задачи. В тексте задачи поиск 3 худших учеников, а решение взяли для задачи про 3 лучших. В теме где получили решение и задавали бы вопрос если что не понятно.
INPUT "vvedite n"; n
DIM a$(n), d(n)
FOR i = 1 TO n
    INPUT "vvedite text"; b$
    FOR j = LEN(b$) TO LEN(b$) - 4 STEP -1 'поседнии 5 сиволов это оценки и побелы, в цикле ищем среднюю оценку
        IF MID$(b$, j, 1) <> " " THEN d(i) = d(i) + VAL(MID$(b$, j, 1)) 'если не пробел значит число, преобразовываем его в числовую форму
    NEXT
    a$(i) = MID$(b$, 1, LEN(b$) - 6) 'удаляем из строчки оценки,оставляем только фамилия и инициалами 
    d(i) = d(i) / 3
NEXT
q = 10 
FOR i = 1 TO 3 'ищем третье максимальное
    max = -1 'задаем для максимума отрицательное число, т.к. в массиве все положительные 
    FOR j = 1 TO n
        IF d(j) > max AND d(j) < q THEN max = d(j)
    NEXT
    q = max
NEXT
FOR i = 1 TO n
    IF d(i) >= q THEN PRINT a$(i) 'печатаем лучших учеников
NEXT