Матрица

[Елена Елизарова]

Характеристикой строки целочисленной матрицы назовем сумму ее отрицательных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с убыванием характеристик (оформить в виде процедуры). - эту задачу я никак не могу решить, хочу попросить вас помочь мне! Заранее благодарю за ответы.

[mMAg]

Пример псевдокода процедуры:
1. Проходим по всем строкам матрицы Р и считаем их характеристики, заносим в отдельный массив М номер строки и значение.
2. сортируем массив М в соответствии со значениями.
3. создаем матрицу Н размеров Р и копируем в нее строки из Р в соответствии с положением номеров строк в М.

[Айрин]

Примерно так. Собственно по совету mMAg. Просто и без функций

#include <vcl.h>
#include <conio>
#include <stdio.h>
#include <iostream.h>
#include <time>

int main(){
    const int m = 10, n = 10;
    int mas[m][n] = {0}, newMas[m][n] = {0}, car[2][m] = {0};
    int i,j,x;

    srand (time(NULL));

    for (i=0; i<m; i++){
        for (j=0; j<n; j++){
            mas[i][j] = rand() % 20 - 10;
            cout << mas[i][j] << '\t';
        }
        cout << endl;
    }
    cout << endl;

    for (i=0; i<m; i++){
        int sum = 0;
        for (j=0; j<n; j++){
            if (mas[i][j]<0 && mas[i][j]%2==0)
                sum += mas[i][j];
        }
        car[0][i] = sum;
        car[1][i] = i;
    }

    for( i=0; i < m; i++) {
        for( j = m-1; j > i; j-- ) {
            if ( car[0][j-1] < car[0][j] ) {
                x=car[0][j-1]; car[0][j-1]=car[0][j]; car[0][j]=x;
                x=car[1][j-1]; car[1][j-1]=car[1][j]; car[1][j]=x;
            }
        }
    }

    for (i=0; i<m; i++){
        x = car[1][i];
        for (j=0; j<n; j++){
            newMas[i][j] = mas[x][j];
        }
    }

    for (i=0; i<m; i++){
        for (j=0; j<n; j++){
            cout << newMas[i][j] << '\t';
        }
        cout << endl;
    }
    cout << endl;

    getch();
    return 0;
}

[Елена Елизарова]

помогите разобраться с этой процедурой! неправильно находит седловые точки матрицы. Выдает элемент матрицы который меньше одновременно и в строке и в столбце. Где поправить?
var
max,min,i,j:integer;
begin
for i:=1 to n do
begin
min:=1;
for j:=1 to N do
if a[i,j]<a[i,min] then min := j;
max := 1;
for k:=1 to n do
if a[k,min]<a[max,min] then max := k;
if max = i then writeln('tochka matr[',max,',',min,'] sedlovayaя');
end;
end;