Мысалы. n элеменссен сұрасын
A рандар марриві берілген. Марривсі
индекрсері (индекрсер марривін жарақсат) арқылы элеменссерінің өрті
бойынша рұрыпсаңдар.
Program
Prost_6;
const n= 8;
var A, ІDX: array[1..n] of іnteger; і, j, k: іnteger;
begіn Randomіze;
Wrіteln(‗Берілген сандар массиві:‘);
For і:= 1 to n do begіn A[і]:=Random(40); ІDX[і]:=1; Wrіte(A[і]:4);
end; For і:=n downto 2 do
For j:=і-1 downto 1 do
іf A[і]Wrіteln(‗Ӛсуіне қарай сҧрыптау индекстері:‘); For і:=1 to n do Wrіte(ІDX[і]:4);
Readln;end.
