Напишите программу, сортирующую массив по убыванию методом Пузырька.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | program arrays_10; uses crt; var mas:array[1..100] of integer; n, i, m, k, x: integer; begin clrscr; write(‘Количество элементов > ‘); read(N); for i:=1 to n do begin write(i, ‘ элемент > ‘); read(mas[i]); end; for k:=n downto 2 do begin m:=1; { m – место max } for i:=2 to k do if mas[i]>mas[m] then m:=i; x:=mas[m]; mas[m]:=mas[k]; mas[k]:=x; end; writeln(‘Отсортированный массив:’); for i:=1 to n do write(mas[i],‘ ‘); readkey; end. |
