===== PascalABC.NET ====
begin
var a := ArrRandom(25, 20, 100);
a.Println.SortedDescending.Println
end.
===== Free Pascal =====
const
n = 25;
var
a: array[1..n] of integer;
i, j, t: integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := random(81) + 20;
write(a[i], ' ')
end;
writeln;
// пузырьковая сортировка по убыванию
for i := n - 1 downto 1 do
for j := 1 to i do
if a[j] < a[j + 1] then
begin
t := a[j];
a[j] := a[j + 1];
a[j + 1] := t
end;
// вывод результатов
for i := 1 to n do
write(a[i], ' ');
end.
ScrollBars (англ. Scroll - прокрутка, bars - прямоугольные полосы) - значение этого свойства определяет наличие или отсутствие на этом компоненте полос прокрутки (горизонтальной - ssHorizontal, вертикальной - ssVertical обоих - ssBoth) для просмотра текста, который выходит за пределы компонента;
ReadOnly (англ. Read - читать, only - только) - значение этого свойства определяет возможность редактирования строк компонента: False - можно редактировать, True - нельзя (только для чтения)
Lines (англ. Lines - линии, строки) - значением этого свойства является набор значений, расположенных в строках этого компонента; каждая строка имеет номер, нумерация строк начинается с 0;
Lines.Count (англ. Count - подсчет) - значение этого свойства равно количеству заполненных данными строк компонента; отметим, что это свойство отсутствует в списке свойств окна Object Inspector.
Тогда при сохранении проекта эти значения также будут сохранены и автоматически появятся в этом поле после запуска проекта на выполнение.