Program pr27 (Input, Output);
Var
X : Array [1..20] Of Real;
N : Integer;
i, j : Integer;
Y : Real;
Begin
WriteLn ('PASCAL: Расположение по возрастанию чисел X[1],X[2], ...X[N].');
Write ('Введите число сортируемых элементов: N = ');
ReadLn (N);
WriteLn ('Введите элементы массива:');
For i := 1 To N Do
Begin
Write ('X[', i, '] = ');
ReadLn (X [i] );
End;
For i := 1 To N - 1 Do
For j := i + 1 To N Do
If X [j] < X [i] Then
Begin
Y := X [j];
X [j] := X [i];
X [i] := Y;
End;
WriteLn;
WriteLn ('Отсортированный массив:');
For i := 1 To N Do
Write (X [i] : 5: 1);
ReadLn;
End.