Сортировка массива пузырьком | Pascal
Разбор метода сортировки элементов массива пузырьком.
Язык программирования Pascal
Язык программирования Pascal
Задача
Массив из 30 элементов заполнен случайными числами от 0 до 43. Программа выводит элементы массива, а затем происходит сортировка массива по возрастанию. В конце работы программа выводит отсортированный массив.
Видео с решением:
Код:
- var
- a,b,c:integer;
- m:array [1..30] of integer;
- begin
- writeln('Несортированный массив');
- for a:=1 to 30 do
- begin
- m[a]:=random(44);
- write(m[a]:3);
- end;
- for a:=1 to 29 do
- for b:=1 to 30-a do
- begin
- if m[b]>m[b+1] then begin
- c:=m[b];
- m[b]:=m[b+1];
- m[b+1]:=c;
- end;
- end;
- writeln();
- writeln('Отсортированный массив');
- for a=1 to 30 do
- write(m[a]:3);
- end.