fork download 
  1. var
  2. 	ar:array[1..60]of byte;
  3. 	n,x,y,d:integer;
  4. begin
  5. 	readln(n);
  6. 	for x:=1 to n do
  7. 		readln(ar[x]);
  8. 	for x:=1 to n do
  9. 	begin
  10. 		for y:= x to n do
  11. 		begin
  12. 			if ar[x]>ar[y] then
  13. 			begin
  14. 				d:=ar[x];
  15. 				ar[x]:=ar[y];
  16. 				ar[y]:=d;
  17. 			end;
  18. 		end;
  19. 	end;
  20. 	for y:=1 to n do
  21. 	begin
  22. 		write(ar[y]);
  23. 		if (y<>n) then
  24. 			write(' ')
  25. 		else
  26. 			if y=n then
  27. 				writeln;
  28. 	end;
  29. end.
Success #stdin #stdout 0.01s 252KB
comments (?)
stdin 
5
7
1
9
7
3
stdout 
1 3 7 7 9
https://ideone.com/EUImO
language:
Pascal (fpc 3.0.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!