Lab2_Var8_z1

{Задача 1
Дана последовательность из n целых чисел. Определить ко-
личество инверсий в этой последовательности (т.е. таких пар
элементов, в которых большое число находится слева от
меньшего: x i > x j при i < j)}

Program Lab2_Var8_z1;

 Var N,            // количество чисел
     i,j,            // счетчики цикла
     k:integer;    // количество инверсий
     mas: array [1..100] of integer; //массив чисел
 Begin
 
 //цикл постпроверки для ввода корректных данных
 Repeat   
 Writeln('Введите число N>1 (количество чисел) :');
 Readln(N);
 until N>1;
 
 Writeln('Введите числа:');
 //цикл для заполнения массива числами
 For i:=1 to N do
  Read(mas[i]);
 
 //сравнение чисел согласно условия задачи
 For i:=1 to N-1 do 
  For j:=i+1 to N do
   if mas[i]>mas[j] then 
                     begin     
                      writeln('Инверсия: ',mas[i],'>',mas[j]);
                      Inc(k); //увеличение количества инверсий на 1
                     end;

 //вывод результата
 Writeln('Количество инверсий: ',k);
 
 End.