Настройки поиска (Страница 3 из 6)

А что сделать то надо? Откуда в теме про радиус,вообще заливка появилась? Не понимаю.

Вот теперь спасибо,эту задачу я уже решал..
Решение такое,найдём где наша медиана в массиве (она там одна,все числа различны).
Теперь пробежим от неё вправо попутно прибавляя +1 к разности кол-ва больших её чисел - кол-во меньших её чисел.
Теперь начнём бежать так же влево,и попутно зная разность кол-ва больших и меньших её чисел,можем узнать сколько краёв справа медианы даст нам такой отрезок что в нём кол-во больших и кол-во меньших чисел равны!
Получаем суть решения в том,что бы каждый момент знать при фиксированном левом крае,кол-во краёв справа медианы,которые в сумме дают равное кол-во больших и меньших чисел медианы,тем самым это и есть свойство медианы.
Сложность алгоритма и память O(N).

Реализация на Паскале(PASCAL):

var a:array[0..100010]of longint;
 r:array[-100010..100010]of longint;
 id,k,k2,i,n,md:longint;
 ans:int64;
begin
 read(n,md);
 for i:=1 to n do begin
  read(a[i]);
  if(a[i]=md)then id:=i;
 end;
 k:=0; k2:=0;
 fillchar(r,sizeof(r),0);
 for i:=id to n do begin
  if(a[i]>md)then inc(k) else if(a[i]<md)then inc(k2);
  inc(r[k-k2]);
 end;
 ans:=0; k:=0; k2:=0;
 for i:=id downto 1 do begin
  if(a[i]>md)then inc(k) else if(a[i]<md)then inc(k2);
  inc(ans,r[k2-k]);
 end;
 writeln(ans);
end.

Нет Геморно писать всё это ...
В интернете должно быть ):

То что ты описал волне сойдёт для Декартова дерева,если конечно ты подразумевал под add(x), delete(x) удаление числа из списка чисел.
Декартово дерево

:):) Эх Годы )

Сортировка по углам нужна,и нужна довольно часто,например задача о "построении выпуклой оболочки",задача о "поиске всех прямоугольников на наборе точек",их можно решать и по другому но очень удобно сортировать данные по углу.

Как написать сортировку по углу:
# Найдём самую левую-нижнюю точку,и сместим её в (0,0) и остальные координаты (на нужную величину). (Не обязательно делать).
# Теперь допустим есть точка (x,y) тогда угол для неё будет ArcTanges(Y / X).

type Tlong=record n:longint;
 a:array[0..100]of longint;
end;

procedure multLong(var c:Tlong; a,b:Tlong);
 var i,j:longint;
 begin
  fillchar(c,sizeof(c),0);
  c.n:=a.n+b.n+2;
  for i:=1 to a.n do
  for j:=1 to b.n do
   inc(c.a[i+j-1],a.a[i]*b.a[j]);
  for i:=1 to c.n-1 do
   if(c.a[i]>9)then begin
    inc(c.a[i+1],c.a[i] div 10);
    c.a[i]:=c.a[i] mod 10;
   end;
  while(c.n>1)and(c.a[c.n]=0)do dec(c.n);
 end;

Вот реализация на Pascal
Мне лень на Си++ писать!

ace.delos.com
Если тебе нужно узнать тесты или решения (разборы воощем) на задачи (всех дивизионов)
например Январь 2009,то пишешь
ace.delos.com/JAN09

http://www.softtime.ru/cpp_info/stl.php
Вот.

Эх,такое бы в Паскаль

А ну да Динамика рулит!

Так а что тут непонятного?
Когда рёбра просто дробные то это ниначто не влияет.
А вот когда рёбра и отрицательные могут быть,то происходит та же проблема что и при пуске дейкстры по графу с отрицательными рёбрами^_^
КАДР а тут динамика не покатит? Вроде динамике то пофигу.