Вот решение на паскале.
var b,k,i,l:integer;a:array[1..100] of string;begin
a[1]:='1';
a[2]:='2';
a[3]:='3';
a[4]:='2';
a[5]:='3';
for i:=1 to 5 do
begin
if a[i]='1' then a[i]:='33';
if a[i]='2' then a[i]:='1';
if a[i]='3' then a[i]:='2';
end;
for i:=1 to 5 do
write(a[i]);
end.
Ответ: 331212