var
a : array [1..50000] of integer;
n, b, i, k, j, x, t : integer;
loopCnt : integer;
begin
read(n);
for i := 1 to n do read(a[i]);
loopCnt := 0;
b := n;
while b > 0 do begin
inc(loopCnt);
t := 0;
for j := 1 to b - 1 do
if a[j] > a[j + 1] then begin
x := a[j];
a[j] := a[j + 1];
a[j + 1] := x;
t := j;
end;
b := t;
end;
for i := 1 to n do
write(a[i], ' ');
end.
Вам задана перестановка, которая подается на вход этого алгоритма сортировки. Найдите значение переменной loopCnt после выполнения алгоритма.
Входные данные
Число N (1 <= N <= 50000), затем перестановка.
Выходные данные
Выведите ответ.
Пример
Ввод
5
1 4 3 5 2
Вывод
4
при том
ограничение времени на тест: 1 сек.
ограничение памяти на тест: 4096 KB.
вывести loopcnt просто по окончанию программы не проходит по времени.