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

Dastur
Program L191;
uses Crt;
const
n = 20;
type
t = array[1..n] of integer;
var
a : t;
i, k : integer;
{----------------------------------------------------------------------------------------}
Procedure create(n : integer; var a : t);
var
i : integer;
begin
randomize;
writeln('Berilgan butun sonlar massivi');
for i := 1 to n do
begin
a[i] := random(201) - 100; write(a[i], ' ')
end;
writeln
end;
{----------------------------------------------------------------------------------------}
 Procedure transp_begin(n, k : integer; var a : t);
var
i, p : integer;
begin
for i := k downto 2 do
begin
p := a[i-1]; a[i-1] := a[i]; a[i] := p
end
end;
{---------------------------------------------------------------------------------------}
begin
create(n, a);
write('Ko’chirilayotgan element nomerini kiriting');
readln(k);
transp_begin(n, k, a);
writeln('Elementni birinchi o’ringa o’tkazgandan so’ng hosil bo’lgan massiv ');
for i := 1 to n do write(a[i], ' '); 
writeln
end.
192-misol. Bir o’lchovli massivda foydalanuvchi tomonidan kiritilgan sonning nomerini aniqlash va uni qo’shni elementlarning o’rinlari bilan ketma-ket almashtirib, massivning birinchi o’rniga ko’chirish kerak.
Bu masalani yechish uchun, tasodifiy sonlar generatori yordamida yaratilgan massivni chiqargandan so’ng, foydalanuvchidan, u qaysi elementni boshiga ko’chirish niyatida ekanligini so’rash kerak.
Berilgan massiv foydalanuvchi uning elementlarini ko’ra olishi va unda mavjud elementlarning birontasining o’rnini almashtirishi uchun ekranga chiqarilishi kerak. Elementni “ko’r-ko’rona” tanlash oqibatida, massivda bunday element bo’lmay qolish holati ham paydo bo’lishi mumkin, bunda esa masala qiziqmas bo’lib qoladi.
Demak, bu masalaning yangiligi - bu berilgan elementning nomerini qidirish.
Buni amalga oshirish ancha oson, buning uchun elementlar soni bo’yicha sikl ochish va massiv elementlarining har birini berilgan son bilan tekshirish kerak, agar tenglik bo’lib qolsa, u holda biron-bir o’zgaruvchining xotirasiga bu massiv elementining nomerini “kiritish” kerak. Biz quyidagi massivdagi element nomerini qidirish prosedurasiga kelib qolamiz: