Мысалы. 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.
