Для исходной последовательности классического кода хэмминга (7; 4) проверить, имеются ли ошибки. написать исправленную последовательность. при отсутствии ошибок переписать исходную. записывать нули и единицы подряд, без разделительных знаков.

1) и 2):

a = [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89]

b = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13]

c = []

for i in range(len(a)):

  for j in range(len(b)):

      if a[i] == b[j]:

          c.append(a[i])

print(list(set(sorted(c  # сортировка по возрастанию

print(list(set(sorted(c, reverse=True  # сортировка по убыванию

3):

a = [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89]

for elem in a:

  if elem < 5:

      print(elem,end = ' ')

4)

a = []

for i in range(102):

  if i == 100:

      a.append(1)

  elif i == 101:

      a.append(1)

  else:

      a.append(0)

print(a)

5)

a = []  

for i in range(90):

  if i % 2 == 0:

      a.append(i)

print(a)

print(len(a))

Объяснение:

НА ВЕРНОЕ ВОТ ТАК

Собственно, решение однострочное...

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  Writeln('Ср.арифм=',ArrRandom(30,0,1000).Println(', ').
      Where(x->Odd(x)).Average)
end.

Тестовое решение:
611, 443, 634, 637, 44, 297, 286, 431, 130, 767, 388, 513, 827, 681, 619, 810, 586, 697, 206, 823, 294, 238, 354, 138, 411, 141, 873, 864, 715, 564
Ср.арифм=592.875

И пояснение, как это работает, т.е. по сути алгоритм на русском языке.
ArrRandom(30,0,1000) создает массив из 30 элементов и заполняет его случайными значениями из диапазона [0,1000]. Далее этот массив обрабатывается методом Println, который направляет значения элементов на вывод, разделяя их запятой с последующим пробелом и в конце вывода добавляет смену строки. Затем элементы массива проходят фильтр Where(x->Odd(x)), который пропускает через себя только те значения, которые удовлетворяют условию Odd(значение элемента)=True, а мы знаем, что Odd() возвращает True для нечетного аргумента. Далее фильтр элементы обрабатываются методом Average, который умеет принимать набор значений и возвращать их среднее. И наконец, процедура Writeln выводит полученное значение, предваряя его текстовым пояснением.