На клетчатой бумаге с размером клетки 1×1 изображен треугольник ABC. Найдите длину медианы проведенной из вершины А.
For i:=1 to n-1 do for j:=i+1 to n do if a [ i ] < a [ j ] then begin b:=a [ i ]; a [ i ] := a [ j ] ; a [ j ] := b; end;