[Rokuell]

22.40

Код:

type Tdarr = array of integer;

procedure SwapArr(var m1,m2:Tdarr; n:integer);
var i,c:integer;
    s:string;
    swc:char;
begin
 SetLength(m2,n);
 for i:=0 to n-1 do
  begin
   s := IntToStr(m1[i]);
   c := Trunc(ln(m1[i])/ln(10))+1;
   swc := s[c];
   s[c] := s[1];
   s[1] := swc;
   m2[i] := StrToInt(s);
  end;
end;

Пример использования:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
    a,b:Tdarr;
begin
 // в Edit1 пусть находиться нужное n
 n := StrToInt(Edit1.Text);
 Randomize;
 SetLength(a,n);
 for i:=0 to n-1 do a[i] := Random(100000);
 SwapArr(a,b,n);
 // выводить будем в Edit2 и Edit3
 Edit2.Text := '';
 Edit3.Text := '';
 for i:=0 to n-1 do
  begin
   Edit2.Text := Edit2.Text + IntToStr(a[i]) + '  ';
   Edit3.Text := Edit3.Text + IntToStr(b[i]) + '  ';
  end;
 // не забыть освободить память, т.к. массивы динамические
 a := nil;
 b := nil;
end;