Advertisement
JolyJDIA

Untitled

May 7th, 2020
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.35 KB | None | 0 0
  1. program zadaha;
  2.  
  3. var i, j, r : integer; mas : array[1..10] of Integer;
  4.  
  5. begin
  6.   for i := 1 to 10 do
  7.     read(mas[i]);
  8.   for i := 1 to 9 do
  9.     for j := 1 to 10-i do
  10.       if mas[j] > mas[j+1] then
  11.       begin
  12.         r:= mas[j];
  13.         mas[j] := mas[j+1];
  14.         mas[j+1] := r;
  15.       end;
  16.   for i:= 1 to 10 do
  17.     write(mas[i], ' ');
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement