отсортировать четные рядки массива по возрастающей, а нечетные по убывающей

[opsam]

как можно отсортировать четные рядки массива по возрастающей, а нечетные по убывающей. язык СИ

[сфинкс]

решено за 5 минут безошибочно

'ryadki.bas
a=7: b=5: dim d(a,b): randomize timer
for i=1 to a: for j=1 to b
d(i,j)=int(rnd*80)+10: ? d(i,j),: next:?:next:?:?

for i=1 to a 

if i mod 2 = 1 then
for m=1 to b-1: for n=m+1 to b:
if d(i,m)>d(i,n) then temp = d(i,m): d(i,m)=d(i,n):d(i,n)=temp
next: next
end if

if i mod 2 = 0 then
for m=1 to b-1: for n=m+1 to b:
if d(i,m)<d(i,n) then temp = d(i,m): d(i,m)=d(i,n):d(i,n)=temp
next: next
end if

next

for i=1 to a: for j=1 to b
? d(i,j),: next:?:next
end

на другие языки из qb64 qbasic переводим сами
и что считать убывание и возрастание не вникал
и из окна результатов текст не копируется

подобные задачи напоминают этюды ЗО-летней давности
когда сочинял сам и записывал в тетрадку
свыше 1ОО программ