这破题看起来好简单啊 为啥我只过1个点呢 分析一下 最好那为高手帮小弟把这题标答给做一下 谢谢！！！ 这是我的程序
var f1,f2:text;
a,b:array[1..10000] of longint;
n,i,j,p:integer;
procedure read;
begin
assign(f1,'count.in');
reset(f1);
readln(f1,n);
for i:=1 to n do begin
readln(f1,a);
end;
close(f1);
end;
procedure quchong;
begin
for i:=1 to n do b:=1;
for i:=1 to n do begin
for j:=1 to n do begin
if (a=a)and(ij) then begin
b:=b+1;
a:=0;
end;
end;
end;
end;
procedure paixu;
begin
for i:=1 to n do begin
for j:=i to n do begin
if a>a then begin
p:=a;a:=a;a:=p;
p:=b;b:=b;b:=p;
end;
end;
end;
end;
procedure shuchu;
begin
assign(f2,'count.out');
rewrite(f2);
for i:=1 to n do begin
if a0 then writeln(f2,a,' ',b);
end;
close(f2);
end;
begin
read;
quchong;
paixu;
shuchu;
end.