{создать массив с трехзначными числами, отсортировать пузырьком и вставить в нужную
позицию трехзначное число}
var
m: array[1..50] of integer;
mm: array[1..51] of integer;
i, g, v: integer;
begin
for i := 1 to 50 do {инициализация массива}
m[i] := random(899) + 100;
for i := 1 to 50 do {вывод массива}
write(m[i], ', ');
Writeln();
Writeln();
for g := 1 to 50 do {сортировка массива}
for i := 1 to 50 - g do
if m[i] > m[i + 1] then
swap(m[i], m[i + 1]);
for i := 1 to 50 do {Вывод отсортированного массива}
write(m[i], ', ');
Writeln();
Writeln();
for i := 1 to 50 do {копирование массива в массив со свободным местом}
mm[i] := m[i];
v := random(899) + 100; {инициализация числа}
for i := 50 downto 1 do {вставка числа}
if m[i] < v then
begin
for g := 50 downto i do
mm[g + 1] := mm[g];
mm[i] := v;
break;
end;
writeln(v);
Writeln();
for i := 1 to 51 do {вывод массива}
write(mm[i], ', ');
end.