求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换program mainimplicit nonereal,dimension(10)::areal term,maxinteger iread*,amax=a(1)DO I=2,10IF(a(i)>=max)thenmax=a(i)term=maxmax=a(10)a(10)=termend ifend doprint*,aend有什

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 23:27:45
求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换program mainimplicit nonereal,dimension(10)::areal term,maxinteger iread*,amax=a(1)DO I=2,10IF(a(i)>=max)thenmax=a(i)term=maxmax=a(10)a(10)=termend ifend doprint*,aend有什

求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换program mainimplicit nonereal,dimension(10)::areal term,maxinteger iread*,amax=a(1)DO I=2,10IF(a(i)>=max)thenmax=a(i)term=maxmax=a(10)a(10)=termend ifend doprint*,aend有什
求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换
program main
implicit none
real,dimension(10)::a
real term,max
integer i
read*,a
max=a(1)
DO I=2,10
IF(a(i)>=max)then
max=a(i)
term=max
max=a(10)
a(10)=term
end if
end do
print*,a
end有什么错啊?为什么输出结果不变?

求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换program mainimplicit nonereal,dimension(10)::areal term,maxinteger iread*,amax=a(1)DO I=2,10IF(a(i)>=max)thenmax=a(i)term=maxmax=a(10)a(10)=termend ifend doprint*,aend有什
IF(a(i)>=max)then
max=a(i)
a(i)=a(10)
a(10)=max
end if

求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换program mainimplicit nonereal,dimension(10)::areal term,maxinteger iread*,amax=a(1)DO I=2,10IF(a(i)>=max)thenmax=a(i)term=maxmax=a(10)a(10)=termend ifend doprint*,aend有什 C语言求回文数的个数. 怎样用fortran求两个数的最大公因数 求用FORTRAN编的数据处理小程序用FORTRAN将数据分组,现有5544(6*42*22)个数,要分成6小块文件(6个不同变量),每块都是(42*22=924个),最后按6个小块的顺序,每块按一行10个数输出 依次将10个数输入,要求输出其中最大的数,用C语言 C语言:要求输入10个数 将其中最小的数与第一个数对换,把最大的数与最后一个数对换 c++语言求输入10个整数,将其中最小的书与第一个数对换,把最大的数与最后的一个数对换,然后输出者10个数 fortran 怎么找一组数中最小值用fortran变成,求得一组数,比如a,b,c,d,然后用什么语句求这四个数中最小的那个? 求相关系数fortran程序~求相关系数的fortran程序~. C语言程序:依次将十个数输入、要求将其中最大的数输出 用c语言怎样求10个数里的奇数并将奇数排序 c语言 一次输入10个数要求将其最大的数打印出来 用传统的流程图怎么表示 C语言小题,用传统流程图表示:依次将10个数输入,要求输出其中最大的数. 什么是FORTRAN语言 fortran语言是什么 Fortran语言是什么意思? fortran语言中的implicit Fortran语言用杜利特尔法解线性方程组