Рост учащихся класса (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-> 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.

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.