Информатика 9 класс

Вот пример программы на языке Pascal, которая сортирует массив по убыванию с помощью алгоритма сортировки пузырьком: program sort_array; const N = 10; var a: array[1..N] of integer; i, j, temp: integer; begin // Заполнение массива случайными числами for i := 1 to N do a[i] := random(100); // Сортировка массива по убыванию for i := 1 to N - 1 do for j := 1 to N - i do if a[j] < a[j + 1] then begin temp := a[j]; a[j] := a[j + 1]; a[j + 1] := temp; end; // Вывод отсортированного массива for i := 1 to N do write(a[i], ' '); end. Эта программа использует массив a из 10 элементов и заполняет его случайными числами с помощью функции random. Затем она сортирует массив по убыванию с помощью алгоритма сортировки пузырьком, который состоит из двух вложенных циклов for. Внешний цикл перебирает элементы массива от первого до предпоследнего, а внутренний цикл перебирает элементы массива от первого до последнего - i-го. Если текущий элемент меньше следующего, то они меняются местами. После завершения сортировки программа выводит отсортированный массив на экран. Количество перестановок в этой программе равно N/2, так как каждая перестановка меняет местами два элемента массива.