сортировка Опции

[dmx]

Рассмотрим алгоритм сортировки пузырьком.

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 просто по окончанию программы не проходит по времени.

Сообщение отредактировано: volvo - 6.11.2006 20:25

[volvo]

Здесь смотри, тебе же уже ответили (не надо дублировать темы):
Перестановки

Кстати,

при том
ограничение времени на тест: 1 сек.
ограничение памяти на тест: 4096 KB.

У тебя без всяких ограничений вот это:

var
  a : array [1..50000] of integer;

компилироваться не будет...