решить! Задача №1733. Золотая середина
Центральным элементом набора из k чисел называется такой элемент, который после сортировки набора будет занимать в нём центральную позицию (то есть позицию номер ⌈k / 2⌉, считая с единицы). Числа добавляются в изначально пустой набор в заданном порядке. Требуется определить значения центрального элемента после добавления каждого числа.
Входные данные
Входной файла содержит количество чисел n, за которым следуют n целых чисел ai в порядке их добавления в набор. 1 ≤ n ≤ 106, −109≤ai≤109.
Выходные данные
Выходной файл должен содержать n целых чисел — значения центрального элемента после каждого добавления.
Примеры тестов
входные данные
3
5 3 4
выходные данные
5 3 4
входные данные
5
1 2 3 2 4
выходные данные
1 1 2 2 2
На питоне можете решить.

Надо проанализировать высказывания самого работящего лжеца и честного жителя, получающего наибольшую (из честных островитян) зарплату (и одновременно работающего больше других честных жителей).Из высказывания № 1 самого высокооплачиваемого из честных островитян очевидно, что таких жителей — не больше 10 (говорящий это и 9 или меньше человек, которых он имел в виду). С другой стороны, если проанализировать высказывание № 1 самого работящего из лжецов, то на острове имеется минимум 10 человек, работающих больше него, и все они — честные (напомним, что он — лжец и его высказывание — ложное). Таким образом, на острове живут 10 честных жителей (n = 10).Из высказывания № 2 самого высокооплачиваемого из честных жителей следует, что на острове живут минимум 100 лжецов, из такого же высказывания самого низкооплачиваемого лжеца — что лжецов на острове — максимум 100. Следовательно, на острове живут 100 лжецов (m = 100).Итак, 100 жителей острова — лжецы, и 10 — честные люди (вот такой “странный” остров  :).

Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
For i:= 1 to K do
    Begin
    Z[i]:=random(21)-10;
    Write(Z[i],' ');
    if Z[i]<0 then O:=O+Z[i]
    else P:=P+Z[i];
    End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.

То же, но с вводом с клавы:

Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
WriteLn('Введите элементы массива:');
For i:= 1 to K do
    Begin
    Read(Z[i]);
    if Z[i]<0 then O:=O+Z[i]
    else P:=P+Z[i];
    End;

WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.