program Sort_Obmen2;
var A:array[1..100] of integer;
N,i,k,x : integer; p:boolean;
begin
write('жиым элементтерінің саны');
read(N);
for i:=1 to n do read(A[i]);
k:=n-1; {циклдың бірінші айналымындағы қос элементтер саны}
p:=true; {логическая переменная p логикалық айнымалысы “ақиқат”, егер алмастыру болса, демек сұрыптауды жалғастырамыз }
while p do
begin p:=false;
{Циклдың жаңа айналымының басы. Әзірге алмастыру болған жоқ.}
for i:=1 to k do
if A[i]>A[i+1] then
begin
x:=A[i]; A[i]:=A[i+1]; A[i+1]:=x;
{элементтерді орнындарымен алмастырамыз}
p:=true; {және алмастыру болғандығын есте сақтаймыз}
end;
k:=k-1; {циклдың келесі айналымы үшін қос элементтер санын азайтамыз }
Достарыңызбен бөлісу: | 
