25 инфа? муниципальный этап олимпиады по информатике проводился для учеников 7–11-х классов. все ученики участвовали в общем конкурсе. каждый участник олимпиады мог набрать от 0 до 400 . по положению об олимпиаде победителем признаётся участник, набравший наибольшее количество , при условии, что им набрано больше половины возможных . победителей может быть несколько, если это количество наберут несколько человек; а может и не быть совсем, если никто не наберёт больше половины. напишите эффективную по времени работы и по используемой памяти программу (укажите используемую версию языка программирования, например borland pascal 7.0), которая будет определять фамилию и имя лучшего участника, не ставшего победителем олимпиады. если следующий за победителей один и тот же набрали несколько человек или если победителей нет, а лучших участников несколько (в этом случае они же являются искомыми), то должно выдаваться только число искомых участников. гарантируется, что искомые участники (участник) имеются. на вход программе сначала подаётся число участников олимпиады n (n< 10000). в каждой из следующих n строк находится результат одного из участников олимпиады в следующем формате: , где – строка, состоящая не более чем из 20 непробельных символов; – строка, состоящая не более чем из 15 непробельных символов; – число от 7 до 11; – целое число от 0 до 400 набранных участником . и , и , а также и разделены одним пробелом. пример входной строки: иванов пётр 10 275 программа должна выводить через пробел фамилию и имя искомого участника или их число. пример выходных данных: кузнецов иван второй вариант выходных данных: 4
275
405
Ответы на вопрос:
Program zvonpobeditel; var i,n,k,i_1,i_2,d_1,d_2: integer; c: char; s,s_1,s_2: string; begin i_1: =0; i_2: =0; d_1: =1; d_2: =1; readln(n); for i: =1 to n do begin c: ='a'; s: =''; while c< > ' ' do begin read(c); s: =s+c; end; read(c); while c< > ' ' do begin s: =s+c; read(c); end; read(c); while c< > ' ' do begin read(c); end; readln(k); if (k=i_1) and (i< > 1) then d_1: =d_1+1; if k> i_1 then begin i_2: =i_1; i_1: =k; s_2: =s_1; s_1: =s; d_2: =d_1; d_1: =1; end; if (k=i_2) and (i< > 1) then d_2: =d_2+1; if (k> i_2) and (k< i_1) then begin i_2: =k; s_2: =s; d_2: =1; end; end; if (i_1< =200) and (d_1=1) then writeln(s_1); if (i_1< =200) and (d_1< > 1)then writeln(d_1); if (i_1> 200) and (d_2=1) then writeln(s_2); if (i_1> 200) and (d_2< > 1) then writeln (d_2); end. это сугубо мое решение за копирайтинг отвешу люлей. и к тому же сдесь есть одна ошибка о которой знаю только я, так сказать один из частных случаев здесь не прощитывается, по этому поломайте голову, ха-ха-
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
рута219.07.2021 20:56
-
ирина154617.04.2021 17:04
-
lizaroma22402.11.2021 12:32
-
averianova198611.04.2023 00:31
-
KILKOlo04.10.2022 19:33
-
mashamaxi10.01.2021 06:20
-
dashabalybina1102.01.2021 13:30
-
123456789064005.11.2021 03:01
-
вова95324.05.2022 04:06
-
TaisiyaDream20.09.2022 02:10
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.