对20个任意的数字进行由大到小排序。要求,这20个数中要存在重复的数字,且排队时,对重复的数字要进行程序剔除,然后重新排队。?...

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Alvaro

    8人对此回答表示赞同

    integer, parameter :: size=10
    integer :: a(size)
    integer :: i,j,k
    integer :: t
    do k=1,size
    read(*,*) a(k)
    end do
    do i=1, size-1
    do j=i+1, size
    if ( a(i) < a(j) ) then
    t=a(i
    展开
    8
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Hazel

    7人对此回答表示赞同

    dimension x(20)
    real x
    eps=1e-6
    open(5,file='data.dat')
    read(5,*)(x(i),i=1,20)
    do 10 i=1,20
    omax=0
    展开
    7
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 裸奔的花生

    7人对此回答表示赞同

    program example
    implicit none
    integer, parameter :: size=20
    integer :: a(size) = (/12,43,65,43,76,97,43,57,35,76,35,76,34,75,35,75,33,76,35,78/)
    integer :: i,j,n
    integer :: t
    n = size
    Do i=1, size-1
    展开
    7
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部