Определить количество абитуриентов, средний которых выше среднего по институту. вывести список поступающих, причем первыми в списке идут абитуриенты, сдавшие все экзамены на 9. дана ведомость абитуриентов, сдавших вступительные экзамены в институт (ее можно дополнить): ф.и.о. оценки местожительство иванов а.г. 9 7 5 вологда петров л.л 9 9 9 грязовец раковский д.г. 4 4 5 сокол акимова я.с. 9 5 4 харовск составьте на паскале =)

112

144

Посмотреть ответы 2

Ответы на вопрос:

YummyGirl

Информатика

4,6(15 оценок)

Const nn=100; type abit=record fio: string; ball: array[1..3] of byte; from: string; midb: real end; var t: abit; mab: array[1..nn] of abit; i,j,n,m: integer; midinst: real; begin { ввод исходных данных } write('количество абитуриентов (до 100): '); readln(n); write('средний по институту: '); readln(midinst); m: =0; for i: =1 to n do begin writeln('абитуриент № ',i); with mab[i] do begin write('фамилия, и.о.: '); readln(fio); write(' по трем предметам через пробел: '); readln(ball[1],ball[2],ball[3]); midb: =(ball[1]+ball[2]+ball[3])/3; write('место жительства: '); readln(from) end; if mab[i].midb> midinst then m: =m+1; end; { простейшая обменная сортировка по убыванию } for i: =1 to n-1 do for j: =i+1 to n do if mab[i].midb< mab[j].midb then begin t: =mab[i]; mab[i]: =mab[j]; mab[j]: =t end; { вывод } writeln; writeln('количество поступающих со средним выше среднеинститутского: ',m); for i: =1 to n do with mab[i] do writeln(fio,' ',ball[1]: 2,ball[2]: 2,ball[3]: 2,' ',from) end. тестовое решение: количество абитуриентов (до 100): 4 средний по институту: 5.94 абитуриент № 1 фамилия, и.о.: иванов а.г. по трем предметам через пробел: 9 7 5 место жительства: вологда абитуриент № 2 фамилия, и.о.: петров л.л. по трем предметам через пробел: 9 9 9 место жительства: грязевец абитуриент № 3 фамилия, и.о.: раковский д.г. по трем предметам через пробел: 4 4 5 место жительства: сокол абитуриент № 4 фамилия, и.о.: акимова я.с. по трем предметам через пробел: 9 5 4 место жительства: харовск количество поступающих со средним выше среднеинститутского: 3 петров л.л. 9 9 9 грязевец иванов а.г. 9 7 5 вологда акимова я.с. 9 5 4 харовск раковский д.г. 4 4 5 сокол

NikaGoddesin

Информатика

4,8(71 оценок)

какие расчёты? должна же быть таблица, если я правильно понимаю? ! в таком случае ответ будет-ccfa

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.