#Mathematica, 67 Bytes#
MatrixForm@NestList[Mod[Total/@Partition[#,2,1],10]&,#,Length@#-1]&
Example:
A Simmons
- 4.6k
- 1
- 13
- 21