Question

Отсортировать массив состоящий из 10 случайных элементов(от 1 до 100)в порядке убывания. Нужно использовать метод пузырька. Помогите,пожалуйста,составить программу для решения в Паскале

Answer 1

var

 arr: array[1..10] of Integer;

 i, j, temp: Integer;

begin

 // Инициализация генератора случайных чисел

 Randomize;

 // Заполнение массива случайными числами

 for i := 1 to 10 do

   arr[i] := Random(100) + 1;

 // Вывод исходного массива

 writeln('Исходный массив:');

 for i := 1 to 10 do

   write(arr[i], ' ');

 writeln;

 // Сортировка методом пузырька

 for i := 1 to 9 do

   for j := 1 to 10 - i do

     if arr[j] < arr[j+1] then

     begin

       temp := arr[j];

       arr[j] := arr[j+1];

       arr[j+1] := temp;

     end;

 // Вывод отсортированного массива

 writeln('Отсортированный массив:');

 for i := 1 to 10 do

   write(arr[i], ' ');

 writeln;

end.