М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
KageyamaT
KageyamaT
07.03.2023 02:12 •  Информатика

Центральным элементом набора из 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

👇
Ответ:
deniskarpov02
deniskarpov02
07.03.2023

with open('input.txt', 'r') as inp:

   k = int(inp.readline())

   a = [int(i) for i in inp.readline().split()]

middle_num = []

a_0 = []

for i in range(k):

   a_0.append(a[i])

   a_0.sort()

   m = int(len(a_0) / 2)

   middle = a_0[m]

   middle_num.append(middle)

with open('output.txt', 'w') as out:

   for element in middle_num:

       out.write(str(element))

       out.write(' ')

Объяснение:

язык питон 2.7 решение не полное, но мош защитала

4,5(7 оценок)
Открыть все ответы
Ответ:
norley15
norley15
07.03.2023
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var sg:=['а','е','и','о','у','ы','э','ю','я'];
  var a:=ReadlnString('Вводите текст: ').ToWords(',','.');
  var r:set of char=[];
  for var i:=0 to a.Length-1 do begin
    var b:=a[i].Where(c->c in sg).GroupBy(t->t).Select(t->(t.Key,t.Count));
    foreach var t in b do
      if t[1]>2 then r+=[t[0]];
    end;
  var s:='';
  foreach var c in r do s+=c;
  s.OrderBy(t->t).Println(',')
end.

Пример
Вводите текст:  Дает,корова,молоко,а,жираф,это,длинношеее,животное.
е,о
4,6(69 оценок)
Ответ:
lezifequliyeva
lezifequliyeva
07.03.2023
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadArrInteger(ReadInteger('n='));
  var p:=x.FindIndex(t->t>10);
  if p=-1 then Writeln('Нет элементов, больших 10')
  else begin
    Write('Ср.арифм.значений до ',x[p],' равно ');
    if p=0 then Writeln('0')
    else Writeln(x[:p].Average);
    var s:=x[p+1:].Where(t->t<0);
    Write('Ср.арифм. отрицательных значений после ',x[p],' равно ');
    if s.Count=0 then Writeln('0')
    else Writeln(s.Average)
    end
end.

Пример
n= 12
4 1 -13 15 13 0 9 5 -12 9 4 -11
Ср.арифм.значений до 15 равно -2.66666666666667
Ср.арифм. отрицательных значений после 15 равно -11.5
4,7(4 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ