Program enot;
Var a:array [1..10] of integer;
i,k,max:integer;
Begin
k:=0;
For i:=1 to 10 do
a[i]:= random(50);
max:=a[1];
for i:=1 to 10 do
if a[i]>max then max:=a[i];
for i:=1 to 10 do 
if a[i]=max then k:=k+1;
write(k);
end.