algds_1

začátek

{ zadané pole }
A[1]:=10;
A[2]:=15;
A[3]:=7;
A[4]:=11;
A[5]:=9;
{ / zadané pole }

N:=5;
F:=A[1];
   pro K od 2 do N opakuj
     jestliže A [K]<F pak
        začátek
          pom:=A[1];
          A[1]:=A[K];
          A[K]:=pom;
        konec;

konec.