Дан целочисленный массив из 30 элементов. Отыскать количество элементов, одинаковых наибольшему.

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] gt; 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