Программа расположения по убыванию элементов заданного ряда чисел.

Program pr35 (Input, Output);         

Объявление имени программы

Var         

Блок объявления глобальных переменных

X             : Array [1..20] Of Real;       

Переменная X - массив действительных чисел из 20 элементов

N             : Integer;              

Переменная N - размерность массива

i, j  : Integer;        

Переменные i, j - параметры циклов

Y             : Real;    

Переменная Y - "буфер", используемый при перестановке элементов

Begin    

Начало тела программы

WriteLn ('PASCAL: Расположение по убыванию чисел X[1],X[2], ...X[N].');            

Формулировка цели алгоритма

Write ('Введите число сортируемых элементов:  N = ');               

Запрос ввода N - размерности массива

ReadLn (N);         

Ввод N

WriteLn ('Введите элементы массива:');     

Запрос ввода элементов самого массива

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер очередного элемента

Begin    

Начало тела цикла

Write ('X[', i, '] = ');             

Вывод удобной подсказки

ReadLn (X [i] );   

Ввод очередного элемента - X[i]

End;      

Конец тела цикла

For i := 1 To N - 1 Do             Сравниваем элементы в цикле.                   

Цикл для i от 1 до N-1, т.е. перебираем начиная с первого и до предпоследнего

For j := i + 1 To N Do             Если последующий элемент больше                

Цикл для j от i+1 до N, т.е. начиная от следующего после i, и до конца

If X [j] > X [i] Then             предыдущего, то меняем их местами              

Сравниваем между собой элементы X[j] и X[i]. Если X[j] больше X[i], то...

Begin    

Начало тела условного блока

Y := X [j];             

В "буфер" заносим j-ый элемент массива

X [j] := X [i];        

j-ому элементу массива присваиваем i-ый элемент

X [i] := Y;             

i-ому элементу массива присваиваем содержимое "буфера"

End;      

Конец тела условного блока

WriteLn;              

Перевод строки

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

Сообщение пользователю о выводе полученного массива

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер очередного элемента

Write (X [i] : 5: 1);              

Форматированный вывод очередного элемента

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.