var
a,b,c:array[1..10000] of integer;
n,i,j,t:longint;
begin
readln(n);
for i:=1 to n do
read a;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if a:=a[j];
then b[a]:=b[a]+1;
end;
end;
for i:=1 to n do
c:=b;
for i:=1 to n do
begin
for j:=1 to n do
begin
if b<b[j] then
begin
t:=b[j];
b[j]:=b;
b:=t;
end;
end;
end;
for i:=1 to n do
begin
if c:=b[1]
then writeln(i,' ',b[1]+1);
end;
end.
无法运行,请问哪里错了
|