Исходник программы, которая сортирует одномерный массив "методом простого выбора" в порядке возрастания. Используется цикл с параметром - FOR. Пояснительных комментариев, к сожалению, нет. Исходник открывается с помощью программ Pascal ABC, Pascal ABC.Net. Скачать исходник или просмотреть исходный код, вы можете ниже.
Исходный код программы:
const N = 10;
var
a: array [1..N] of integer;
begin
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
for var i:=1 to N-1 do
begin
var min := a[i];
var ind := i;
for var j:=i+1 to N do
if a[j]<min then
begin
min := a[j];
ind := j;
end;
a[ind] := a[i];
a[i] := min;
end;
writeln('После сортировки выбором: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
end.Скачать исходник: sortvib.pas