program raf105;

var

 a:array[1..30] of integer;

 max,i,c:integer;

begin

max:= -10000;

writeln('Заполните массив');

for i:=1 to 30 do

begin

 readln(a[i]);

 if a[i] > max

   then max:= a[i];

end;

for i:=1 to 30 do

 if a[i] = max

   then c+= 1;

writeln('Количество элементов равных максимальному: ',c);

end.

PascalABC 3.4.2