记录编号 13026 评测结果 AAAAAAAAAA
题目名称 背诵单词 最终得分 100
用户昵称 Gravatarybh 是否通过 通过
代码语言 Pascal 运行时间 0.008 s
提交时间 2009-09-25 20:24:16 内存使用 0.35 MiB
显示代码纯文本
program BeiDanCi;
var
  a:array[1..1000] of string;
  i,j,n:integer;
  temp:string;
begin
  assign(input,'letter.in');
  reset(input);
  assign(output,'letter.out');
  rewrite(output);
  readln(n);
  for i:=1 to n do
    readln(a[i]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i]>a[j] then
      begin
        temp:=a[i];
        a[i]:=a[j];
        a[j]:=temp
      end;
  for i:=1 to n do
    writeln(a[i]);
  close(input);
  close(output)
end.