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

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-gt;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-gt;t=maxR).Count;
  Writeln('Наибольший рост ',maxR,' имеют ',kol,' чел.')
end.

Полный текст программы на языке Си (все пояснения в коде)

includelt;stdio.hgt;
includelt;locale.hgt;
int main()
setlocale(LC_ALL, "Ru");//необходимо необыкновенно для корректного отображения российского текста в консоли
int h[16]; //инициализируем целочисленный одномерный массив с 16 элементами printf("Введите данные о росте 16 воспитанников\n");
for(int x = 0; x lt; 16; x++) //юзер вводит информацию о всех 16 воспитанниках scanf("%i\n", amp;h[x]);

int max = h[0];  //переменная для поиска максимального роста int maxcount = 0; //переменная для подсчета количества воспитанников с наибольшим ростом
for(int y = 0; y lt; 2;y++) //1-ый "виток" цикла, который проходит 2 раза. Это нужно для корректного определения количества воспитанников с наибольшим ростом  
maxcount = 0;
for(int x = 0; x lt; 16; x++) //в этом блоке происходит подсчет максимального роста и количества воспитанников
if(h[x] gt; max)
max = h[x];  //рост

if(h[x] == max)
maxcount++;      //кол-во



printf("Наибольший найденный рост - %i\nКоличество воспитанников с наибольшим ростом - %i\n", max,maxcount);//вывод на экран результата
return 0 ;



P.S. Приложил снимок экрана для наихорошего осознания