Отсортировать массив методом "Пузырька" - Pascal ABC
Формулировка задачи:
Помогите пожалуйста.Целочисленный массив состоит из значений диапазона от 100 до 200. Направление сортировки: по возрастанию. И обязательно:Размер массива n задать как константу.Применить сортировку методом «пузырька».
Решение задачи: «Отсортировать массив методом "Пузырька"»
textual
Листинг программы
const
n=10;
var
a:array[1..n] of integer;
i,j,k:integer;
begin
randomize;
write ('Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(100)+100;
write(a[i]:4);
end;
writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j] > a[j+1] then
begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k
end;
write('Готовый массив: ');
for i:=1 to n do
write (a[i]:4);
writeln;
readln;
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д