Рост учащихся класса (16 человек) записан в одномерный массив. записать программу, которая вычисляет максимальный рост и количество учеников, имеющих его. программу написать через процедуры: ввода, вычисления максимума, вычисления количества максимума.

178

489

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

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

Luciferiy

Информатика

4,5(48 оценок)

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.

skawin2017

Информатика

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

Program dividers; var c,i,n : integer; begin readln(n); repeat if ( (n mod i) = 0 ) and ( (i mod 2) < > 0) then c: = c + 1; if ( (n / i) mod 2) < > 0 then c: = c + 1; i: = i + 1; until i < (sqrt(n) + 1); writeln(c); end.

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

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

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

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

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

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

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

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

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

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