var b,c,n,i,min,max:longint;
    a:array[1..100000] of longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>max then max:=a[i];
min:=1000000;
for i:=1 to n do
if a[i]<min then min:=a[i];
for i:=1 to n do
begin
if a[i]=max then inc(c);
if a[i]=min then inc(b);
end;
write(c,' ',b);
end.
/**************************************************************
	Problem: 1810
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/