есть переменная m:='261543';
и p[j]:='123456'; //позиции цифр массива m[i]
т.е берем первую цифру массива m[i] = цифра 2 массива p[i] то в массиве p[i] вместо цифры 2 пишем 1 (1-позиция цифры 2 в массиве m[i].
Только как это реализовать на языке программирования, я не знаю.
Смог найти только позицию цифры и переписать в массив
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
k,k2:string;
b:integer;
begin
k:=edit1.Text;
for i:=1 to length(k) do begin
k2:=k[i];
b:=Pos(k2,k);
Memo1.Lines.Append(inttostr(b));
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var j:integer;
begin
for j:=0 to memo1.Lines.Count do
p[j]:=strtoint(Memo1.Lines.Strings[j]);
end;
допустил опечатку в теме в слове цифры, жаль нельзя поправить