Полный текст программы:
var a: array[1..50] of Integer;
i,x,imax,j,n: Integer;
begin
for i:=1 to n-1 do
begin
imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x;
end;
end.
Количество информации вычисляется по формуле log(2)10≈3,32
За одно повторение без Команды1 он смещается на (1+1,3-2) = (2,1)
За 3 повторения он сместится на (2*3, 1*3) = (6,3)
Последняя команда сместит его в (6+3, 3+9) = (9,12)
Чтобы из 9 и 12 за три повторения сделать 0 и 0 ему нужно смещаться на (-3, -4)
Вариант 3
1 , 4 , 2 , 3 , 3 , 4 ,1, 2
Пароварка,теплоход, паровоз .