Pascal В двумерном массиве A(n*n), состоящем из целых чисел определить среднее арифметическое значение элементов, расположенных в закрашенной части матрицы.

Программа:

X = [int(input("Введите элемент: ")) for _ in range(10)]

print("\n")

Y = [int(input("Введите элемент: ")) for _ in range(10)]

S = [el_X for el_X in X for el_Y in Y if el_X == el_Y]

print(S)

Если программа выше сложна для понимания, предложу её в другом виде:

X = []

Y = []

for _ in range(10):

   num = int(input("Введите цифру: "))

   X += [num]  # То же, что и X.append(num)

print("\n")

for _ in range(10):

   num = int(input("Введите цифру: "))

   Y += [num]  # То же, что и Y.append(num)

S = []

for el_X in X:

   for el_Y in Y:

       if el_X == el_Y:

           S += [el_X]

print(S)

import datetime

f = open('test', 'w')

x = ['Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday']

date = input()

xd = []

if len(date) > 4:

for i in range(2021, 2042):

a = datetime.date(i, int(date[:2]), int(date[3:])).weekday()

xd.append(date + '.' + str(i) + ' - ' + str(x[a]))

else:

flag = date.index('.')

for i in range(2021, 2042):

a = datetime.date(i, int(date[:flag]), int(date[flag+1:])).weekday()

xd.append(date + '.' + str(i) + ' - ' + str(x[a]))

f.write('Date: ' + str(date) + '\n')

for i in range(len(xd)):

f.write(xd[i]+'\n')