nikolaidobrev

Моля, ако някой разбира от Паскал да ми помогне с една малка задача : Даден едномерен масив AS, [1<I<10],съдържащ реални числа. Да се сортират елементите на масива в нарастващ ред. Стигнал съм до тук: Program Red; Var AS:Array[1..10] Of Real; I:Integer; N,K:Real; Begin For I:=1 to 10 do Write('AS['I']='); Readln(AS[I]); End; For I:=1 to 10 do If AS [I]<AS[I-1] then Begin K:=AS[I]; AS[I]:=AS[I+1]; AS[I+1]:=K End;