Advertisement
Guest User

Untitled

a guest
Feb 27th, 2017
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.45 KB | None | 0 0
  1. var i,n,c,j, m:integer;
  2. a:array[1..10000] of integer;
  3. begin
  4. readln(n);
  5. for i:=1 to n do begin
  6. read (a[i]);
  7. end;
  8. m:=n div 2;
  9.  
  10.  
  11. for j:=1 to m-1 do begin
  12. for i:=1 to m-j do begin
  13. if a[i]>a[i+1]
  14. then swap(a[i],a[i+1]);
  15. end;
  16. end;
  17. for j:=1 to m do begin
  18. for i:=m+1 to n-j do begin
  19. if a[i]<a[i+1]
  20. then swap(a[i],a[i+1]);
  21. end;
  22. end;
  23. for i:=1 to n do begin
  24. write(a[i], ' ');
  25. end;
  26. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement