Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- a, b, c: integer;
- mas: array of integer;
- function sum(a: integer; b: integer): integer;
- begin
- Result := a + b;
- end;
- procedure sumProc(a: integer; b: integer; var res: integer);
- begin
- res := a + b;
- end;
- procedure BubleSort(m: integer; arr: array of integer);
- var
- i, j, k: integer;
- begin
- for i := 0 to m - 2 do
- for j := 0 to m - 2 do
- if arr[j] > arr[j + 1] then begin
- k := arr[j];
- arr[j] := arr[j + 1];
- arr[j + 1] := k;
- end;
- end;
- begin
- readln(b);
- mas := new integer[b];
- for a := 0 to b - 1 do
- read(mas[a]);
- BubleSort(b, mas);
- for a := 0 to b - 1 do
- write(mas[a], ' ');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement