fork download
  1. program rendezes_buborek_rendezessel;
  2. const n = 10;
  3. var a: array [1..n] of integer;
  4. i, j, cs: integer;
  5. begin
  6. randomize;
  7. //A tömb elkészítése
  8. for i:=1 to n do
  9. begin
  10. a[i]:=random(55);
  11. write(a[i], ' ');
  12. end;
  13. Writeln;
  14. //Tömb rendezése buborékos rendezéssel
  15. for i:=2 to n do
  16. for j:=n downto i do
  17. if a[j-1]>a[j] then
  18. begin
  19. cs:=a[j-1];
  20. a[j-1]:=a[j];
  21. a[j]:=cs;
  22. end;
  23. writeln('A rendezett tomb elemei: ');
  24. for i:=1 to n do
  25. write(a[i], ' ');
  26. readln;
  27. end.
Success #stdin #stdout 0s 9120KB
stdin
Standard input is empty
stdout
8 18 17 22 42 54 3 20 12 38 
A rendezett tomb elemei: 
3 8 12 17 18 20 22 38 42 54