На Паскале

[Bagsi]

Дана последовательность из n целых чисел(n=20). Определить количество инверсий в этой последовательности (т.е. таких пар элементов, в которых большее число находиться слева от меньшего: xi>xj при i<j).

[Alex21]

на чем застряли?

[_Dmitry]

Вам за последние пол месяца решили шесть задач, может пора и самому начать думать. Начни писать программу, если что-то не получается то код в студию, поможем.

[Teksa]

перебор массива, при этом проверять все члены массива которые имеют меньший номер, увеличивать счетчик. ИМХО так

[Tayfun]

Эмм... Енто у нас получаетсья упорядочивание по возрастанию...
Делаете упорядование по возрастанию и в условии, где образно выражаясь

a[i]<a[j] then begin p:=a[i];a[i]:=a[j]; a[j]:=p; t:=t+1; end;

Как видите добавилось t- это и есть наш счетчик
Осталось дело только за оформлением

[Teksa]

Хмм про упорядочивание я не говорил, массив никто не трогает порядок элементов не меняет.

for i:=0 to 19 do
  begin
     for j:=0 to i do
         if mass[i]<mass[j] then schet:=schet+1;
  end;

что то типа этого правда возникает вопрос -цикл от 0 до 0)) но это лечится, вроде бы должно работать.

ЗЫ сам нифига не умею так что АХТУНГ.

*)) первый цикл тупо начинаем с 1, туплю((

[puporev]

Что-то вы ребята в трех соснах блудите. Решение в две строчки:

for i:=1 to 19 do
    if a[i]>a[i+1] then k:=k+1;

[_Dmitry]

Это если j=i+1, но в условии дано i<j, поэтому цифры не обязательно находятся рядом

[puporev]

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

program invers;
uses crt;
var a: array[1..20] of integer;
    i,k: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
      if a[i]>a[i+1] then k:=k+1;
      write('k = ',k);readln;
end.

[Tayfun]

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

т.е. таких пар элементов, в которых большее число находиться слева от меньшего: xi>xj при i<j

А теперь берем получившуюся последовательность...

Получить 1 2 3 2 5

А здесь инверсия... Ее ненужно рассматривать-?