Сортировка положительных элементов методом прямого выбора. программа. Паскаль

Const

n=20;

var

a:array[1 ... n] of integer;

i, j, k, x:integer;

begin

Randomize;

Writeln ('Исходная последовательность') ;

for i:=1 to n do begin a[i]:=Random (50) + 1; Write (a[i]:3) end;

Writeln;

for i:=1 to n-1 do begin

k:=i; x:=a[i];

for j:=i+1 to n do

if a[j]
a[k]:=a[i]; a[i]:=x

end;

Writeln ('После сортировки') ;

for i:=1 to 20 do begin Write (a[i]:3) end;

Writeln

end.

Тестовое решение:

Исходная последовательность

6 37 19 32 34 48 28 8 15 50 25 37 14 12 28 10 15 40 29 10

После сортировки

6 8 10 10 12 14 15 15 19 25 28 28 29 32 34 37 37 40 48 50