упорядочить по возрастанию массив целых чисел 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).