На Паскале

[puporev]

В задаче требуется переставить только те соседние элементы, которые стоят "неправильно". Если расставлять "правильно" до конца, то это называется сортировка по возрастанию. В принципе можно задать задачу на такую сортировку с подсчетом количества инверсий или еще что нибудь в этом роде, но это будет ДРУГАЯ ЗАДАЧА.

[Teksa]

хмм кажется было необходимо посчитаь количество инверсий, если нужно отсортировать массив с подсчетом количества шагов то велкам Н Вирт. Зачем сортируем массив??

Цитата:
Вот условие "на пальцах":
Дано 2 1 3 5 2
Получить 1 2 3 2 5

разве это подразумевалось??

[puporev]

Извините господа, погорячился. Вот нормальный код. Проверял, вроде работает.

program invers1;
uses crt;
var a: array[1..20] of integer;
    i,k,j,x:integer;
begin
   clrscr;
   randomize;
   for i:=1 to 20 do
     a[i]:= random(9)+1;
   for i:=1 to 20 do
     write(a[i],' ');readln;
   for i:=1 to 19 do
      begin
         for j:=1 to 19 do
             if a[j]>a[j+1] then
                 begin
                    x:=a[j];a[j]:=a[j+1];a[j+1]:=x;k:=k+1;
                 end;
      end;
write('k=',k);readln
end.

[Agent[PNZ]]

Ребят, огромное спасибо)У меня в лабах задача один в один)Спасибо всем, я понял как решается, надеюсь подобную сам решить смогу. Еще раз спасибо.