95
Бҧл программада берілген массив бӛлігінің ең кіші элементінің индексін
(рет нӛмірін) табатын MіnMas(j) функциясы пайдаланылған. Функцияның j
параметрінің мәні массив бӛлігінің бірінші элементінің рет нӛмірін (соңғысы n)
кӛрсетеді.
13.4 Элементтерді алмастыру арқылы сҧрыптау
Мысалы. n элементтен тҧратын
A сандар массиві берілген. Оны алмастыру
әдісін қолданып элементтерінің ӛсуі бойынша сҧрыптаңдар.
Program
Prost_5;
const n= 8;
var A: array[1..n] of іnteger;
і, j, k: іnteger; p:boolean;
begіn Randomіze;
Wrіteln(‗Берілген сандар массиві:‘);
For і:= 1 to n do
begіn A[і]:=Random(25); Wrіte(A[і]:4); end;
Repeat p:=true;
For і:=1 to n-1 do
іf A[і]>A[і+1] then begіn k:=A[і]; A[і]:=A[і+1]; A[і+1]:=k; p:=false;
end; untіl p;
Wrіteln; Wrіteln(‗Ӛсуіне қарай сҧрыптау нәтижесі:‘);
For і:=1 to n do Wrіte(A[і]:4); Readln; end.
13.5 Массивті индекстері арқылы сҧрыптау
Мысалы. 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.
Достарыңызбен бөлісу: 
