首页 > 试题广场 >

const SIZE = 100; var d...

[填空题]
const
  SIZE = 100;
var
  dict : array[1..SIZE]of string;
  rank, ind : array[1..SIZE]of integer;
  i, j, n, tmp : integer;
begin
  readln(n);
  for i:=1 to n do
  begin
    rank[i] := i;
    ind[i] := i;
    readln(dict[i]);
  end;
  for i:=1 to n - 1 do
    for j:=1 to n - i do
      if dict[ind[j]] > dict[ind[j + 1]] then
      begin
        tmp := ind[j];
        ind[j] := ind[j + 1];
        ind[j + 1] := tmp;
      end;
  for i:=1 to n do
    rank[ind[i]] := i;
  for i:=1 to n do
    write(rank[i], ' ');
  writeln;
end.
输入: 7
aaa
aba
bbb
aaa
aaa
ccc
aa
输出 : 1

这道题你会答吗?花几分钟告诉大家答案吧!