求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/08/18 20:22:03
求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有什么错啊?为什么输出结果不变?
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)互换](/uploads/image/z/5076257-41-7.jpg?t=%E6%B1%82fortran%E8%AF%AD%E8%A8%80%E6%94%B9%E6%AD%A3%21%E5%B0%8610%E4%B8%AA%E6%95%B0%E7%9A%84%E6%95%B0%E7%BB%84A%E4%B8%AD%E6%9C%80%E5%A4%A7%E7%9A%84%E5%85%83%E7%B4%A0%E4%B8%8EA%2810%29%E4%BA%92%E6%8D%A2)
IF(a(i)>=max)then
max=a(i)
a(i)=a(10)
a(10)=max
end if
max=a(i)
a(i)=a(10)
a(10)=max
end if
求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换
C语言将二维数组A的行和列元素互换,存到二维数组B中
用c语言编写:从键盘输入10个数存入数组a中,统计数组下标是奇数且数组元素值为偶数的元素个数
从键盘获取任意10个整数存放于c语言,数组a中,将其最小的数和最大的数对换,并输出交换后的数组元素.求
c语言,从键盘获取任意10个整数存放于数组a中,将其最小的数和最大的数对换,并输出交换后的数组元素.求
数组a(10)的元素个数为 ,数组a(1 to 10)的元素个数为
C语言编程 将a[10]数组中10个数分别按升序和降序排列的程序.
C语言,将一个二维数组a的行和列的元素互换,存到另一个二维数组b中.列如 123 1 4 2 5 456 3 6
C语言中,寻找两个数组中相同的元素的个数,与元素
C语言:从键盘输入10个数存放在数组a中,再将数组a中的偶数存放在数组b中
整型数组a中有10个元素,整型数组b中有6个元素,编程将那些在数组a中而不在数组b的数据组成新数组c并输出
用c语言编写:从键盘输入10个数存入数组a中,统计数组下标是奇数且数组元素值为偶数