Листинг программ

program z12;

 {Сост. прог. , которая размещает элм. s неупорядоченного массива

  A на место, соостветствующее ему в упорядоченном массиве}

uses crt;

var a:array[1..100]of longint;

    b:array[1..100]of longint;

    i,j,n,a1,p,ap,min:longint;

 begin

  clrscr;

   write('Введите кол-во элм таблицы:');readln(n);

   for i:=1 to n do

    begin

     write('a[',i,']=');readln(a[i]);b[i]:=a[i];

    end;

   write('Введите число:');readln(a1);

   write('Введите его позицию:');readln(ap);

   for i:=1 to n-1 do

    for j:=i+1 to n do

     if a[i]>a[j] then begin

                        min:=a[j];

                        a[j]:=a[i];

                        a[i]:=min;

                       end;

   for i:=1 to n do if a1=a[i] then p:=i;

   min:=b[ap];

   b[ap]:=b[p];

   b[p]:=min;

   for i:=1 to n do write(b[i],' ');readln;

 end.