Олимпиадная работа pascal. - Вопросы по Pascal

Вопрос Олимпиадная работа pascal.

Регистрация
12 Сен 2013
Сообщения
62
Репутация
0
Спасибо
0
Помогите решить задачи на языке Pascal, Изучали матрицу, массивы. Помогите пожалуйста.
875a8375f91de049494d6073098e8a2f_d341b2f8ab912427446693da3d48c496.jpg

 
Регистрация
15 Авг 2013
Сообщения
67
Репутация
0
Спасибо
0
Задачи не такие уж и "олимпиадные", но на Паскале не умею. Зато на Python - в легкую..
m1 = [[9,8,6],
[5,9,7],
[7,9,4]]
m2 = [[0,1,0],
[1,1,0],
[0,0,1]]
def f(x,y):
for i in range(len(x)):
x = 0 if not y else x
for i in range(len(m1)):
f(m1,m2)
print(sum(list(map(lambda x: sum(x),m1))))
 
Сверху Снизу