96
13.6 Элементтерді енгізу тәсілімен сҧрыптау
Бҧл тәсілдің мәні массивтің сҧрыпталмаған бӛлігінен сҧрыпталған бӛлігіне
элементтерді бір-бірлеп енгізу. Енгізілген элемент массив бӛлігінің
сҧрыпталуын бҧзбауы қажет. Ол ҥшін енгізілетін элемент ӛз орнын тапқанша,
сҧрыпталған бӛлігінің элементтерімен орын ауыстырып отыруы тиіс.
Мысалы.
n
элеменссен сұрасын
A
рандар марриві берілген. Элеменссерді
енгізт сәрілін пайдаланып марривсі элеменссерінің өрті бойынша рұрыпсаңдар.
Program
Prost_7;
const n= 8;
var A: array[1..n] of іnteger; і, j, k: іnteger;
begіn Randomіze;
Wrіteln(‗Берілген сандар массиві:‘);
For і:= 1 to n to begіn A[і]:=Random(30); Wrіte(A[і]:4); end;
For і:=2 to n do
begіn j:= і – 1;
Repeat іf A[j+1]<=A[j]
then begіn k:=A[j]; A[j]:=A[j+1]; A[j+1]:=k; j:=j – 1; end else j:=0;
untіl j=0; end;
Wrіteln; Wrіteln(‗Ӛсуіне қарай сҧрыптау нәтижесі:‘);
For і:=1 to n do Wrіte(A[і]:4); Readln;end.
Достарыңызбен бөлісу: 
