Задача на паскале Массивы

[Radio-Man]

Добрый вечер, уважаемые форумчане, помогите с задачкой!!!! Не знаю что делать....
Даны 2 массива действительных чисел А(10) и В(15). Построить упорядоченный массив С из элементов А и В, сначала четных, расположенных в порядке убывания, а затем нечетных, расположенных в порядке возрастания.

[Sciv]

1) Объявляем массив C[25], Д[13]
2) Копируем в C все четные элементы массивов А и Б
3) Соритруем по убыванию массив С
4) Копируем нечетные массивов А и Б в Д
5) Сортируем Д по возрастанию
6) Сливаем массивы С и Д (добавляем элементы Д в конец С).

Помог?

[rubius2008]

1. Сформировать массив С

for i:=1 to 5 do c[i]:=a[2*i];
for i:=1 to 7 do c[5+i]:=b[2*i];
for i:=1 to 5 do c[12+i]:=a[2*i-1];
for i:=1 to 8 do c[17+i]:=b[2*i-1];

2. Отсортировать первые 12 элементов по убыванию, а начиная с 13 по 25 по возрастанию

Но надо выяснить, что подразумевается под словом "четные": значения или номера элементов?
мой кусок кода приведен для случая четных номеров

[Radio-Man]

Но надо выяснить, что подразумевается под словом "четные": значения или номера элементов?
мой кусок кода приведен для случая четных номеров

Вроде надо именно четные элементы, а не номера.... там типа массивы задаются изначально

[Serge_Bliznykov]

Вроде надо именно четные элементы, а не номера....

нет, понятие чётный/нечётный допустимо только для множества ЦЕЛЫХ чисел (чётным называется число, которое делится на 2 без отстатка). Т.к. массивы у вас действительные (т.е. состоят из вещественных чисел), то, следовательно, речь идёт именно о четных/нечётых номерах (индексах) элементов.

[Radio-Man]

А тогда как отсортировать???

[Serge_Bliznykov]

А тогда как отсортировать???

Да любым удобным для вас способом. Начиная с простейших (метод простых обменов/ метод "пузырька") и заканчивая методом "быстрой сортировки" (quick sort).
в чём проблема, не можете на форуме найти ни одного готового примера сортировки?!

тогда можете взять, например, такой код сортировки:

   {
    Сортировка методом простого выбора
    Выбирается минимальный (самый "лёгкий"=наименьший) элемент массива
    и меняется местами с первым элементом массива.
    Затем процесс повторяется с оставшимися элементами и т. д.  }

    for i := 1 to cntRecord - 1 do begin
      IndexMin := i; {предварительно считаем, что первый элемент наименьший}
      {ищем индекс минимального элемента}
      for j := i + 1 to cntRecord do
        if c[j] < c[IndexMin] then IndexMin := j;

      {меняем местами элементы массива с индексами i и IndexMin
         (ну, если они не равны, конечно) }
      if i <> IndexMin then begin
        t := c[IndexMin];
        c[IndexMin] := c[i];
        c[i] := t;
      end;
    end;

p.s. мда.. перечитал ещё раз условия задачи. По сути там, конечно, бред написан... Ибо если бы не то, что массивы из действительных чисел, я бы тоже прочитал условие, что нужно брать чётные и нечётные ЗНАЧЕНИЯ, а не номера/индексы..