Задачи Альметьевского Филиала КГТУ, Решение задач Опции

[-dron4ik-]

В массиве из 40-а элементов упорядочить
1-ые 20 элементов по возрастанию
2-ые 20 элементов по убыванию.


Массив одномерный


Надо использовать random(n)

[compiler]

смотри эта программа сортирует массив по возрастанию...

var
        a:array[1..10] of integer;
        i, j, k:integer;
begin
        for i:=1 to 10 do
                readln(a[i]);

        for i:=1 to 10 do
                for j:=10 downto i do begin
                        if a[j-1]>a[j] then begin
                                 k:=a[j-1]; a[j-1]:=a[j]; a[j]:=k;
                        end;
                end;

        for i:=1 to 10 do begin
                        write(a[i]:3);
                writeln;
        end;
end.

твоя задача исправить ее так , что бы
1) матрица заполняласть случайно(править первый цикл)
2) изменить количество элементов
3) сделоть сортировку по убыванию(по аналогии)