Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program zadaha;
- var i, j, r : integer; mas : array[1..10] of Integer;
- begin
- for i := 1 to 10 do
- read(mas[i]);
- for i := 1 to 9 do
- for j := 1 to 10-i do
- if mas[j] > mas[j+1] then
- begin
- r:= mas[j];
- mas[j] := mas[j+1];
- mas[j+1] := r;
- end;
- for i:= 1 to 10 do
- write(mas[i], ' ');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement