Question

Написать программу,которая сортирует массив из N элементов по возрастанию методом “пузырька”и считает при этом количество произведённых перестановок.Протестировать программу на следующих исходных данных:
а) 2 5 1 6 4 10 4 2
б) 1 2 5 6 -4 11 12
в) 12 10 6 4 2 1 0
Язык программирования Pascal

Answer 1

const

 n = 7;

var

 a: array [1..n] of integer;

 i, j, count, c: integer;

begin

 count := 0;

 for i := 1 to n do

   readln(a[i]);

 

 for i := 1 to n do

   write(a[i]:4);  

 writeln;

 for i := 1 to n - 1 do

   for j := 1 to n - i do

     if a[j] > a[j + 1] then  

     begin

       c := a[j];

       a[j] := a[j + 1];

       a[j + 1] := c;

       inc(count);

     end;

 

 for i := 1 to n do

   write(a[i]:4);

 writeln;

 write('Count: ', count);

 

end.