Заполните схему, используя предложенные ниже понятия и термины.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadLines('in.txt').ToArray;
  var n:=StrToInt(s[0]);
  var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
  var f:=OpenWrite('out.txt');
  Writeln(f,n,' - (кол-во чисел)');
  foreach var e in a do Write(f,e,' '); Writeln(f);
  Writeln(f,'Среднее значение четных ',
    a.Where(x->x.IsEven).Average);
  Writeln(f,'Среднее значение нечетных ',
    a.Where(x->x.IsOdd).Average);
  f.Close
end.

Файлы in.txt и out.txt находятся во вложении.

Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25

x1 = int(input("Введите количество элементов в первом списке "))

#создаем пустые списки

m1 = []

m2 = []

m3 = []

for i in range(x1):

   m1.append(int(input()))

s1,s2,s3= 0,0,0 #переменные для сумм

for i in range(x1): #находим сумму элементов первого массива

   s1+= m1[i]

print("Сумма элементов первого списка равна:",s1)

print("Среднее арифметическое первого списка равно",s1/x1)

x2 = int(input("Введите количество элементов во втором списке "))

for j in range(x2):

   m2.append(int(input()))

for j in range(x2): #находим сумму элементов первого массива

   s2 += m2[j]

print("Сумма элементов второго списка равна:",s2)

print("Среднее арифметическое второго списка равно",s2/x2)

x3 = int(input("Введите количество элементов в третьем списке "))

for k in range(x3):

   m3.append(int(input()))

for k in range(x3): #находим сумму элементов первого массива

   s3 += m3[k]

print("Сумма элементов третьего списка равна:",s3)

print("Среднее арифметическое первого списка равно",s3/x3)