Fortran求数组两两相加

风平老涡

这是排序与搜索的问题。先把15x15的数组P按数值大小排序（用一维数组记录每个数在二维中的位置），然后找出与A相近的俩个数并检验是否在同一行。