Question

用Fortran语言编写 ⑴编写函数fun，功能是：计算s(N)数组中N个数的平均数

用Fortran语言编写

⑴编写函数fun，功能是：计算s(N)数组中N个数的平均数，
平均值通过行参返回主函数，
将小于平均值且最接近平均值的数作为函数值返回，
在主程序中产生随机数，调用fun后输出平均值和小于平均值且最接近平均值的数。
（随机数函数：Call Random_Number(x)，产生[0,1)的随机数存入x）
⑵如果一个数的因子之和等于这个数本身，则称这样的数为“完全数”。
例如整数28的因子为1,2,4,7,14，其和为1+2+4+7+14=28，因此28是一个完全数。
编写一个程序，从键盘上输入整数M、N，求出M和N之间所有的完全数。

Answer 1

#includevoid fun(int p[][3],int q[]){ int i,j,m; for(j=0;j<3;j++) for(i=0;i<3;i++) { m=j*3+i; q[m]=p[i][j]; }}void main(){ int p[3][3]={{33,33,33},{44,44,44},{55,55,55}}; int q[10]={0,0,0,0,0,0,0,0,0}; int i; fun(p,q); for(i=0;i<10;i++) printf("%d，",q[i]);}

追问

能不能用Fortran语言做