Программа, которая упорядочивает элементы чётных строк матрицы по возрастанию, а нечётных – по убыванию

2.24. Составить программу, которая упорядочивает элементы чётных строк
матрицы по возрастанию, а нечётных – по убыванию.
17. Задан массив {Ai}: 2; 0,4; 3,14;  -1,57;  11;  7,34;  -2,6;  0;  5;  -1.
       Вычислить  массив  {Yi},  каждый  элемент  которого  вычисляется  по
       формуле cos(A), и подсчитать количество элементов L из массива {Yi},
       попадающих в интервал [0;1]. Вывести на печать L и  массивы  {Ai}  и
       {Yi}.

                              Программа №2.24:

cls
print 'Введём массив A(4,3):'
print ' '
dim a(4,3)
for x=1 to 4
for y=1 to 3
print 'A(';x;',';y;') = ';
input a(x,y)
next y
next x
dim b(4,3)
if a(1,1)>a(1,2) and a(1,1)>a(1,3) then b(1,1)=a(1,1) else if  a(1,1)a(1,1) and a(1,2)>a(1,3) then b(1,1)=a(1,2) else if  a(1,2)a(1,2) and a(1,3)>a(1,1) then b(1,1)=a(1,3) else if  a(1,3)a(3,2) and a(3,1)>a(3,3) then b(3,1)=a(3,1) else if  a(3,1)a(3,1) and a(3,2)>a(3,3) then b(3,1)=a(3,2) else if  a(3,2)a(3,2) and a(3,3)>a(3,1) then b(3,1)=a(3,3) else if  a(3,3)a(2,2) and a(2,1)>a(2,3) then b(2,3)=a(2,1) else if  a(2,1)a(2,1) and a(2,2)>a(2,3) then b(2,3)=a(2,2) else if  a(2,2)a(2,2) and a(2,3)>a(2,1) then b(2,3)=a(2,3) else if  a(2,3)a(4,2) and a(4,1)>a(4,3) then b(4,3)=a(4,1) else if  a(4,1)a(4,1) and a(4,2)>a(4,3) then b(4,3)=a(4,2) else if  a(4,2)a(4,2) and a(4,3)>a(4,1) then b(4,3)=a(4,3) else if  a(4,3)=0 and y(x)=<1 then L=L+1
next x
print '        Исходный массив:    !     Конечный массив:'
print ' '
for x=1 to 10
print '       ';a(x);
locate (x+2),29
print '!     ';y(x)
next x
print '____________________________________________________'
print ' '
print 'L =';L