fork download
  1. program ideone;
  2. uses classes;
  3. function mycomp(item1: Pointer; item2: Pointer) : longint;
  4. begin
  5. mycomp := int64(item1^)-int64(item2^);
  6. end;
  7.  
  8. var
  9. t,n,c,i,x: int64;
  10. list: array of int64;
  11. ss: TList;
  12. p: pointer;
  13. begin
  14. read(t);
  15. while t > 0 do
  16. begin
  17. t -= 1;
  18.  
  19. read(n,c);
  20. setlength(list,n);
  21. ss := Tlist.create;
  22. for i := low(list) to high(list) do
  23. begin
  24. read(x);
  25. list[i] := x;
  26. ss.add(@list[i]);
  27. end;
  28. ss.sort(@mycomp);
  29. for p in ss do
  30. begin
  31. writeln(int64(p^));
  32. end;
  33. end;
  34. end.
Success #stdin #stdout 0s 4324KB
stdin
1
5 3
1
2
8
4
9
stdout
1
2
4
8
9