До какого предела может уменьшится длина кодовой комбинации при эффективном кодировании?

1. Вот так это нужно решать по-современному

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.

Тестовое решение
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9

2. А вот так учат решать в школе...

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
  a:array[1..15] of integer;
  i,k:integer;
begin
  Randomize;
  k:=0;
  for i:=1 to 15 do begin
    a[i]:=Random(20)+1;
    Write(a[i],' ');
    if a[i]>10 then k:=k+1
    end;
  Writeln;
  Writeln('k=',k)
end.

Тестовое решение:
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6

Мне лениво каждый раз вводить значения от руки, поэтому массив заполняется рандомно (в задаче нет четкого указания) но если нужен ввод с клавы, его нетрудно заменить:
вместо
     A[i]:=random(20); 
     write(A[i]:4) 
надо
     readln (A[i])


program aaa;
var A: array[1..7] of integer; i: byte;
begin  
  randomize;  //запускаем генератор случайных чисел
  
  // формируем и одновременно выводим массив  
  writeln ('Исходный массив:');
  for i:=1 to 7 do
    begin
      A[i]:=random(20);  //рандомное значение 
      write(A[i]:4)  //вывод массива
    end;
  writeln;
  
  //проверяем условие и выводим номера нужных элементов:
  writeln ('номера нечётных элементов, стоящих на чётных местах :');
  writeln;
  for i:=1 to 7 do
   if ((i mod 2)=0) and ((A[i] mod 2)=1)
     then writeln (i:3) 
end.


Результат работы программы:

Исходный массив:
  13  16   7  11  11   5  17

номера нечётных элементов, стоящих на чётных местах :
  4
  6