Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! procedure input(var a: array of integer); begin a: =readarrinteger('вводите через пробел рост в см: ',a.length) end; procedure mymax(a: array of integer; var mr: integer); begin mr: =a.max end; procedure kmax(a: array of integer; mx: integer; var km: integer); begin km: =a.where(t-> t=mx).count end; begin var n: =readinteger('количество учеников: '); var r: =new integer[n]; input(r); var maxr,kol: integer; mymax(r,maxr); kmax(r,maxr,kol); writeln('максимальный рост ',maxr,' имеют ',kol,' чел.') end. пример количество учеников: 5 вводите через пробел рост в см: 170 168 171 159 171 максимальный рост 171 имеют 2 чел. на самом деле, это - прекрасный пример того, как не нужно использовать процедуры. потому что без процедур эта же решается гораздо короче, занимает меньше памяти и быстрее работает. ниже - текст такой программы в качестве иллюстрации написанного. begin var a: =readarrinteger('вводите через пробел рост в см: ', readinteger('количество учеников: ')); var maxr: =a.max; var kol: =a.where(t-> t=maxr).count; writeln('максимальный рост ',maxr,' имеют ',kol,' чел.') end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Варвараминнннн29.09.2020 22:30
-
ПАРРА25.09.2021 11:05
-
DimkaNevidimka1316.02.2022 07:34
-
ulianiabelka07.05.2023 13:31
-
kapcha22805.06.2022 21:57
-
miki6503.08.2021 10:32
-
Маширо1128.12.2021 19:01
-
Sergey200345604.08.2020 20:07
-
Стаилз200215.02.2021 07:06
-
vikarere721.03.2022 04:03
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.