For sikli yordamida amalga oshirish mumkin. Elementni massiv boshiga (birinchi o’ringa) ko’chirish uchun prosedura

for i := 1 to n do write(a[i], ' ');
writeln
end;
{------------------------------------------------------------------------------------}
begin
create(n, a);
write('Ko’chirilayotgan elementni kiriting'); readln(d);
search_number(d, a, k);
write('Ko’ch. uchun nomerni ko’rsating'); readln(m);
transpose_number(n, k, m, a)
end.
194-misol. O’sish bo’yicha tartiblangan massivga berilgan sonni shunday joylashtiringki, massiv tartibi buzilmasin.
Matematik tahlil va algoritm tuzish
10 ta sondan iborat bo’lgan, o’sish bo’yicha tartiblangan massiv berilgan bo’lsin:

12 23 34 45 56 58 78 89 90 98

1 2 3 4 5 6 7 8 9 10 11
Massivga joylashtirish kerak bo’lgan son 75 bo’lsin.
Bizga ma’lum bo’lgan tezkor qidiruv usuli yordamida, bu son massivning 6 –nomerdagi elementi, ya’ni 58 dan keyin qo’yilishi kerakligini aniqlaymiz.
So’ngra 8 nomerdagi elementdan boshlab, barcha massiv elementlarini 1 element o’ngga ko’chirish kerak (o’rin almashtirish jarayonini biz oldin ham bajargan edik, lekin bu masalada elementning 11 nomeridagi qiymati saqlanib qolishi to’g’risida qayg’urish kerak emas, chunki uning o’zi yo’q, aniqrog’i u nolga teng, shuning uchun o’rin almashtirishni oddiy ko’chirish bilan almashtirish mumkin, ya’ni 11 nomerdagi elementga 10 nomerdagi element qiymatini, 10 ga esa 9 nikini va h.k berib qo’yish mumkin).
Undan keyin esa 7 nomerdagi element o’rniga berilgan sonni joylashtirish kerak.
Buning uchun esa massivni tariflash paytida, massiv 1 ta elementga uzun bo’lib qolishini hisobga olish, ya’ni massivni berilgan konstantaga nisbatan 1 taga katta deb ta’riflash kerakligi bizga ravshan.
r-chi elementdan boshlab elementlarni o’ngga ko’chirish uchun, quyidagi prosedurani tashkil etish yetarli:
(movement – harakat, end – yakun):
Procedure movement_end(n, k : integer; var a : t);