Pascal характеристика матриц

[tipson]

вот задание... вооще ни фига не понял
Характеристикой строки целочисленной матрицы назовем сумму ее положительных черных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с ростом характеристик

[Вавел из ГМТУ]

В матрице есть строки. Просуммируй положительные четные (наверное опечатка) элементы строки. Эта сумма будет обзываться характеристикой строки.
Теперь надо переместить строки матрицы так, чтоб эти характеристики возростали.

[tipson]

ООО
ну ща попробую хотябы блоксхему нарисовать

[tipson]

как упорядочить последовательность?
нам преподы чето про 3 стакана объясняли я забыл
кто нит напомнит?

[tipson]

допустим найдем минимальный элемент и поставим его на место первого элемента, а первый элемент на место где стоял минимальный.
потом массив перебирать уже не с 1 го а с 2ого элемента так?

[Вавел из ГМТУ]

Поиск по форуму "Сортировка массива"

[tipson]

for i:=l to N do begin
Amin:=A[i];
L:=i;
                      J:=i+1;
                   While j<=n do
                             begin
                                 If Amin>A[j] then
                                                             Begin
                                                                Amin:=a[j];
                                                                 L:=j;
                                                              End;
                                   J:=j+1;
                              End;
                     A[l]:=A[i];
                    A[i]:=Amin;
                      end;

[tipson]

так мы найдем сортировку сумм элементов
а как по такому же принципу рассортировать ряды? тоесть строки

[tipson]

помогитЕЕЕЕЕ

[tipson]

нада выполнить 2 условия больше 0 и делицца на 2 без остатка
как это объеденить в одно условие??
я пишу and и чет не пашет
пишет ожидается then