Впорядкування шляхом вибору

В масиві a[1], a[2], … a[n] знаходимо найменший елемент і переставляємо його з першим. На другому кроці знаходимо найменший елемент в діапазоні елементів з другого по n-ий і переставляємо його з другим, і так далі для всіх елементів від 1-го до (n-1)-го.

program VporVybir;

uses

Crt;

var

a:array[1..20] of real;

min:real;

i,j,nom,n:integer;

begin

ClrScr;

Writeln('Введіть довжину масиву n<=20');

Readln(n);

Writeln;

Writeln('Введіть поелементно масив a:');

For i:=1 to n do Read(a[i]);

Writeln;

{Початок реалізації методу}

For i:=1 to n-1 do

Begin

{пошук поточного мінімального елемента}

min:=a[i];

nom:=i;

for j:=i+1 to n do

if a[j]<min then

begin

min:=a[j];

nom:=j;

end;

{обмін мінімального та i-го елементів}

a[nom]:=a[i];

a[i]:=min;

End;

{Кінець реалізації методу}

{Друк впорядкованого масиву}

Writeln('Впорядкований масив');

For i:=1 to n do Write(a[i]:8:2);

Writeln;

ReadKey;

end.