Задача с матрицами, Прошу помощи в решении. Опции

[jetman]

Проблема не дающая заснуть уже четвертый день:
Дана целая матрица размера nxm. Для каждой строки матрицы найти сумму четных элементов и произведение нечетных. Результаты оформить в виде матрицы (nx2). В полученной матрице упорядочить (переставить) строки по возрастанию второго элемента в строке.
Буду признателен за любую помощь.

Сообщение отредактировано: jetman - 18.10.2005 14:01

[jetman]

:fire: :help:
Я в тупике (точнее тупик в моей голове) :ypr: . Ну не могу я написать эту :ryg: программу. Мож чего не догнал :orangun: И так еще раз и попорядку:
1. Мне надо ВВЕСТИ матрицу в память (точно вот так):

program test;
uses crt;
const
 NN=10;
 MM=10;
type
 TElem = integer;
 Matrix = array[1..NN,1..MM] of integer;
Procedure ReadMatr(var A:Matrix; var n,m:word );
var
 i,j:word;
begin
 clrscr;
 repeat
  write('Enter stroks: '); readln(N)
 until (N>0) and (N<=NN);
 repeat
  write('Enter stolbs: '); readln(M)
 until (M>0) and (M<=MM);
 For i:=1 to n do
 begin
  For j:=1 to m do
  begin
   write('A[',i,j,']= ');
   readln(A[i,j])
  end
 end
end;

2.Для каждой строки матрицы найти сумму четных элементов и произведение нечетных.

Сумма ЧЕТНЫХ:

function sum(a: matrix; i: byte): integer;
var j, s, n: integer;
begin
  s := 0;
  for j:= 1 to n do
    if odd(a[i, j]) then inc(s, a[i, j]);
  sum := s;
end;

Произведение НЕЧЕТНЫХ:

function umn(a: matrix; i: byte): integer;
var j, r, n: integer;
begin
  r := 0;
  for j:= 1 to n do
    if not odd(a[i, j]) then (r, a[i, j])*(r, a[i,j]);
  umn := r;
end;

3. Вывести s и r виде матрицы матрицы (nx2). В полученной матрице упорядочить (переставить) строки по возрастанию второго элемента в строке.

???

В итоге если это правильно написать и составить по пунктам 1, 2, 3 должно работать, но как это сделать не понятно???
:help: