Помогите пожалуйста, икт. профиль

Помогите пожалуйста, икт. профиль
Гость
Ответ(ы) на вопрос:
Гость
5 10 0 3 8 11 1 4 7 2 9 0 10 5 3 8 11 1 4 7 2 9 0 5 10 3 8 11 1 4 7 2 9 0 3 10 5 8 11 1 4 7 2 9 0 3 5 10 8 11 1 4 7 2 9 0 3 5 8 10 11 1 4 7 2 9 0 1 5 8 10 11 3 4 7 2 9 0 1 3 8 10 11 5 4 7 2 9 0 1 3 5 10 11 8 4 7 2 9 0 1 3 5 8 11 10 4 7 2 9 0 1 3 5 8 10 11 4 7 2 9 0 1 3 4 8 10 11 5 7 2 9 0 1 3 4 5 10 11 8 7 2 9 0 1 3 4 5 8 11 10 7 2 9 0 1 3 4 5 8 10 11 7 2 9 0 1 3 4 5 7 10 11 8 2 9 0 1 3 4 5 7 8 11 10 2 9 0 1 3 4 5 7 8 10 11 2 9 0 1 2 4 5 7 8 10 11 3 9 0 1 2 3 5 7 8 10 11 4 9 0 1 2 3 4 7 8 10 11 5 9 0 1 2 3 4 5 8 10 11 7 9 0 1 2 3 4 5 7 10 11 8 9 0 1 2 3 4 5 7 8 11 10 9 0 1 2 3 4 5 7 8 10 11 9 0 1 2 3 4 5 7 8 9 11 10 0 1 2 3 4 5 7 8 9 10 11 Ответ: 26 перестановок.
Гость
Конечно, "с карандашиком" это крутить долго и бессмысленно. Поэтому переписал программу на современный паскаль, введя трассировочную выдачу. // PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию! begin   var a:=Arr(6,5,10,0,3,8,11,1,4,7,2,9); a.Println; Writeln;   var k:=0;   for var i:=0 to a.Length-1 do     for var j:=0 to i-1 do       if a[j]>a[i] then begin Swap(a[i],a[j]); k+=1; a.Println end;   Writeln('Перестановок: ',k) end. Результаты 6 5 10 0 3 8 11 1 4 7 2 9 5 6 10 0 3 8 11 1 4 7 2 9 0 6 10 5 3 8 11 1 4 7 2 9 0 5 10 6 3 8 11 1 4 7 2 9 0 5 6 10 3 8 11 1 4 7 2 9 0 3 6 10 5 8 11 1 4 7 2 9 0 3 5 10 6 8 11 1 4 7 2 9 0 3 5 6 10 8 11 1 4 7 2 9 0 3 5 6 8 10 11 1 4 7 2 9 0 1 5 6 8 10 11 3 4 7 2 9 0 1 3 6 8 10 11 5 4 7 2 9 0 1 3 5 8 10 11 6 4 7 2 9 0 1 3 5 6 10 11 8 4 7 2 9 0 1 3 5 6 8 11 10 4 7 2 9 0 1 3 5 6 8 10 11 4 7 2 9 0 1 3 4 6 8 10 11 5 7 2 9 0 1 3 4 5 8 10 11 6 7 2 9 0 1 3 4 5 6 10 11 8 7 2 9 0 1 3 4 5 6 8 11 10 7 2 9 0 1 3 4 5 6 8 10 11 7 2 9 0 1 3 4 5 6 7 10 11 8 2 9 0 1 3 4 5 6 7 8 11 10 2 9 0 1 3 4 5 6 7 8 10 11 2 9 0 1 2 4 5 6 7 8 10 11 3 9 0 1 2 3 5 6 7 8 10 11 4 9 0 1 2 3 4 6 7 8 10 11 5 9 0 1 2 3 4 5 7 8 10 11 6 9 0 1 2 3 4 5 6 8 10 11 7 9 0 1 2 3 4 5 6 7 10 11 8 9 0 1 2 3 4 5 6 7 8 11 10 9 0 1 2 3 4 5 6 7 8 10 11 9 0 1 2 3 4 5 6 7 8 9 11 10 0 1 2 3 4 5 6 7 8 9 10 11 Перестановок: 32
Не нашли ответ?
Ответить на вопрос
Похожие вопросы