упорядочить по возрастанию массив целых чисел a1 ... an используя алгоритм сортировки выбором

Целевой массив в задаче имеет тип integer. В такой массив можно будет заносить только целые числа.

Так как в Паскале нельзя создавать динамические массивы, то определять величину массива программным способом мы не можем.

Придется задать значение n:

а : array [1 ... 10] of integer;

Заполняем его случайными целыми числами, пользуясь функцией random ():

for i:integer : = 1 to 10 do

а[i] : = random (100);

Чтобы расположить элементы по порядку, нужно создать переменную, в которой будет временно содержатся заменяемое значение:

for i:integer : = 2 to 10 do

if (а[i] < а[i - 1]) then

begin

t : = а[i - 1];

а[i - 1] : = а[i];

а[i] : = t;

end;

После того, как все элементы будут расположены по порядку, выведем массив, применив форматирование для каждого элемента, чтобы они не были расположены рядом:

for i:integer : = 2 to 10 do

write (a[i]:5).