Advertisement
Guest User

Untitled

a guest
Mar 23rd, 2017
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.67 KB | None | 0 0
  1. var
  2.   a, b, c: integer;
  3.   mas: array of integer;
  4.  
  5. function sum(a: integer; b: integer): integer;
  6. begin
  7.   Result := a + b;
  8. end;
  9.  
  10. procedure sumProc(a: integer; b: integer; var res: integer);
  11. begin
  12.   res := a + b;
  13. end;
  14.  
  15. procedure BubleSort(m: integer; arr: array of integer);
  16. var
  17.   i, j, k: integer;
  18. begin
  19.   for i := 0 to m - 2 do
  20.     for j := 0 to m - 2 do
  21.       if arr[j] > arr[j + 1] then begin
  22.         k := arr[j];
  23.         arr[j] := arr[j + 1];
  24.         arr[j + 1] := k;
  25.       end;
  26. end;
  27.  
  28. begin
  29.   readln(b);
  30.   mas := new integer[b];
  31.   for a := 0 to b - 1 do
  32.     read(mas[a]);
  33.   BubleSort(b, mas);
  34.   for a := 0 to b - 1 do
  35.     write(mas[a], ' ');
  36. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement