将一整数数列按奇数在前,偶数在后的顺序重新排放,并要求奇偶两部分都是升序排列.c语言的.

Question

将一整数数列按奇数在前,偶数在后的顺序重新排放,并要求奇偶两部分都是升序排列.c语言的.

Answer 1

dim d(1 to 100) as double
i=1
n=val(inputbox("n="))
redim d(1 to n) as double
do while i<=n
d(i)=val(inputbox("d(i)="))
i=i+1
loop
i=1
do while i<=n
if d(i)/2=int(d(i)/2) then
a=n
do while a>0
b=1
do while b<=n-1
if d(i)>d(i+1) then
j=d(i)
d(i)=d(i+1)
d(i+1)=j
end if
b=n+1
loop
print d(i+1)
a=a-1
else
a=n
do while a>0
b=1
do while b<=n-1
if d(i)>d(i+1) then
j=d(i)
d(i)=d(i+1)
d(i+1)=j
end if
b=n+1
loop
print d(i+1)
a=a-1
end if
loop