Паскаль, сортировка.

[Dangersss]

Здарвствуйте.
Который день уже не могу решить задачу, может вы поможете?

Условие задачи:
Надо вывести четные элементы по возрастанию для всей матрицы по строкам.

Заранее Спасибо!

[Serge_Bliznykov]

1) чем Вам помочь то? Вы же свой код не выкладываете, что не получается - не пишите... который день решаете, хоть какие-то наработки есть?!

2) что подразумевается "для всей матрицы по строкам"?
например, для матрицы:

 1 2 16 8
12 22 7 6
18 10 4 2

что должна вывести программа?

[Dangersss]

Должна получиться матрица:
2 2 4 6
8 10 12 16
18 22 1 7

Тоесть надо вывести сначала все четные элементы матрицы по возрастанию, а потом все остальные элементы.
С помощью сортировки я нашел четные элементы (линейный массив) и присвоил их двумерному массиву.
Он у меня выводит все четные числа по возрастанию, но нечетные числа он заменяет нулями.
Пример:
2 2 4 6
8 10 12 16
18 22 0 0

Листинг написать не могу, т.к. пишу программу в колледже. Может быть как-нибудь получится скинуть его на флешку когда учитель отвернется)

[Abstraction]

Сортировку в студию. По идее, достаточно определить функцию сравнения чисел вместо (a<b) IsLesser(a,b), которая возвращает true, если либо a чётное, а b нечётное, либо (a+b) чётное и a<b.

[Dangersss]

Сортировку я так писал:
if c[z]>c[z+1] then {c[z] - четные числа введенной матрицы}
begin
x:=c[z];
c[z]:=c[z+1];
c[z+1]:=x;
end;

[Abstraction]

Запишите в массив c не чётные элементы, а все элементы и поменяйте условие if описанным образом. Должно помочь.

[Dangersss]

Мы в колледже не проходили команду IsLesser. Но, благодаря вам, я придумал другое решение. Сделать два линейных массива (четные числа и остальные). Потом присвоить матрице сначала отсортированные четные элементы, а потом остальные.

Наверное, эту задачу можно решить проще. Но другой вариант её решения мне в голову не приходит )

[Abstraction]

Мы в колледже не проходили команду IsLesser.

Кхм. Я вообще-то предполагал, что Вы такую функцию напишете.

[Dangersss]

Сообщение от Abstraction

Кхм. Я вообще-то предполагал, что Вы такую функцию напишете.

Использовать её в задаче я не могу, т.к. 1). Не знаю что эта команда обозначает. 2) Мы её не проходили в течении практики (Препод поймёт что решал не я ).

[Abstraction]

Минутку. Какая "команда"? Функции вы ещё не проходили, что ли? Тогда проходите быстрей, писать всё в одном блоке - это не жизнь.