Сортировка массива пузырьком | Pascal

Разбор метода сортировки элементов массива пузырьком.
Язык программирования Pascal

Задача

Массив из 30 элементов заполнен случайными числами от 0 до 43. Программа выводит элементы массива, а затем происходит сортировка массива по возрастанию. В конце работы программа выводит отсортированный массив.


Видео с решением:


Код:

  1. var
  2. a,b,c:integer;
  3. m:array [1..30] of integer;
  4. begin
  5. writeln('Несортированный массив');
  6. for a:=1 to 30 do
  7. begin
  8. m[a]:=random(44);
  9. write(m[a]:3);
  10. end;
  11. for a:=1 to 29 do
  12. for b:=1 to 30-a do
  13. begin
  14. if m[b]>m[b+1] then begin
  15. c:=m[b];
  16. m[b]:=m[b+1];
  17. m[b+1]:=c;
  18. end;
  19. end;
  20. writeln();
  21. writeln('Отсортированный массив');
  22. for a=1 to 30 do
  23. write(m[a]:3);
  24. end.
18:55
943
Нет комментариев. Ваш будет первым!
Загрузка...

Подготовка к ГИА


Подпишись