这个应该很好做的，反对角线，具体到数组元素的下标，就是要取：
0,8  1,7  2,6  3,5  4,4  5,3  6,2  7,1  8,0
这9个元素中间的最大者。
据题意，可以写出代码（假设数据已读入二维数组 A 中）：

dim i as integer,j as integer,MX as single
for j=8 to 0 step -1
  if A(i,j)>MX then MX=A(i,j)
  i=i+1
next

这样就求出了最大值，向t2.dat输出的代码自己写吧

谢谢了