Ақпаратты өңдеу форматтары


program Sort_Obmen2; var



бет14/31
Дата24.01.2022
өлшемі1,6 Mb.
#113866
1   ...   10   11   12   13   14   15   16   17   ...   31
Байланысты:
Итн толық жауаптарыменн

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; {циклдың келесі айналымы үшін қос элементтер санын азайтамыз }





Достарыңызбен бөлісу:
1   ...   10   11   12   13   14   15   16   17   ...   31




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет