Вот решение на паскале.
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]);
<span>end.
Ответ: </span>331212
1)10001111111010 2)101111110111110 3)100011000101011110
X=[15,1,0,255,12,38,154,36,794,2,54,-69] #массив
Z=[] #пустой массив
#запоминаем первый элемент из массива X как минимальный и максимальный
minc=X[0]
minind=0
maxc=X[0]
maxind=0
k=-1 #переменная-счетчик
for i in range(len(X)): #цикл
if i%2==0:
k+=1
Z.append(X[i]) #добавляем элемент Z[i], если i - четный
print(Z)
# проверка на минимум и максимум
if X[i]>maxc:
maxc,maxind=X[i],k
if X[i]<minc:
minc,minind=X[i],k
print(minind,maxind,k)
Z[minind]=maxc
Z[maxind]=minc
print(Z)