Fortran计算n行n列二维数组的两个对角线上各元素之和
#include <iostream>
using namespace std;
int main() {
int num;
cout << "请输入对角矩阵的大小" << endl;
cin >> num;
int **p = new int*[num];//数组大小动态，二维
for (int i = 0; i <num; i++)
p[i] = new int[num];
int sum = 0;
int number;
for (int i = 0; i < num; i++) {
cout << "请输入矩阵元素";
cout << "第" << (i + 1) << "行" << endl;
for (int j = 0; j < num; j++){
cout << "第" << (j + 1) << "列" << endl;
cin >> number;
p[i][j] = number;
}
}
for (int i = 0; i < num; i++) {
sum += p[i][i] + p[i][num-i-1];//两个对角线元素相加
}
cout << "sum=" << sum << endl;
return 0;
}
扩展资料：
Fortran语言与程序化语言JAVA,C#等高级语言相比，它缺乏创造力。但是，由于很多优秀的工程计算软件都是运用Fortran语言编写；
例如ANSYS、Marc，为了能够使用这些商业软件的高级功能，用户必须先学会Fortran语言，才能编写应用程序接口。由此决定了Fortran在工程计算领域将长期处于统治地位。
在数值计算中，Fortran语言仍然不可替代。Fortran 90标准引入了数组计算等非常利于矩阵运算的功能。
在数组运算时，Fortran能够自动进行并行运算，这是很多编程语言不具备的。运用Fortran语言，用户能够运用很多现成的函数软件包，所以非常便利。（MATLAB的早期版本，主要就是为两个著名的Fortran函数包提供程序接口。）
DO i=1,n
sum=sum+A(i,i)+A(i,N-i)
ENDDO
