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

[jetman]

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

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

[jetman]

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
 clscr;
 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;
begin

For i:=1 to n do
begin
  For j:=1 to m do
  begin
  if i mod 2 = 0 then
  ...........................

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

Procedure PrintMatr(A:Matrix; n,m:word);
Var
 i,j:word;
begin
For i:=1 to n do
 begin
  For j:=1 to m do write(A[i,j],' ');
  writeln
 end
end;
var
 n,m:word;
 a:matrix;
Begin
 Readmatr(a,n,m);
 PrintMatr(a,n,m);3
readln;
end.

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