Реализовать алгоритм бинпоиска. A) ваша программа должна давать ответ на вопрос: есть ли элемент, равный значению key в упорядоченной структуре;
B) ваша программа должна давать ответ на вопрос: на какое место нужно поставить key, сдвинув часть структуры(массива), так чтобы не нарушить упорядоченность элементов.
Реализовать поиск k-ой статистики в неупорядоченной структуре данных.

В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
  n,s,t,i:integer;
begin
  Write('Укажите количество данных: ');
  Read(n);
  Writeln('Теперь вводите данные');
  s:=0;
  for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
  Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4

ответ: 327 680 бит; 40 960 байт; 40 килобайт.

Объяснение: всё очень просто, смотри: формат CMYK имеет глубину цвета 32 бита. Чтобы вычислить объём изображения, нужно лишь перемножить размер фото на глубину его цвета. Таким образом получаем: 32×320×32= 327 680 БИТ. БИТ наименьшая единица размера. Далее переводим результат в БАЙТЫ. 1 БАЙТ равен 8 БИТАМ. Делим результат на 8. Получаем 40 960 БАЙТ. Переводим БАЙТЫ в КИЛОБАЙТЫ. Система измерения в информатике отличается от физики или алгебры, например. Здесь приставки КИЛО, МЕГА, ГИГА, ТЕРА, ПИТА ... ЙОТА и тп означают не 1000, а 1024. Потому в одном КИЛОБАЙТЕ 1024 БАЙТ. Следовательно результат предыдущего действия мы делим на 1024. Получается 40 КБ или КИЛОБАЙТ.