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

[jetman]

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

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

[Altair]

АВТОР ПРОГРАММЫ: klem4

uses crt;
const
   n=3;
   m=4;
type

   TArr = array[1..n, 1..m] of integer;

var
   arr : TArr;

   result : TArr;

   t : byte;

procedure InitArray(var x : TArr);
const
   rnd = 11;
var
   i,j : byte;
begin
   randomize;
   for i := 1 to n do
    for j := 1 to m do
     x[i,j] := random(rnd);
end;

procedure PrintArray(x : TArr ; sizeN, sizeM : byte);
var
   i,j : byte;
begin
   for i := 1 to sizeN do begin
      writeln;
      for j := 1 to sizeM do
       write(x[i,j] : 2, '  ');
   end;
   writeln;
end;

function Addition(x : TArr; i : byte) : integer;
var
   j : byte;
   S : integer;
begin

   s := 0;
   j := 2;

   while(j<=m) do begin
      inc(s, x[i,j]);
      inc(j, 2);
   end;

   Addition := s;

end;

function Multiplication(x : TArr; i : byte) : integer;
var
   j : byte;
   p : integer;
begin

   p := 1;
   j := 1;

   while(j<=m) do begin
      p := p*x[i,j];
      inc(j, 2);
   end;

   Multiplication := p;

end;

procedure SortResult(var x : TArr);
var
   i,temp : byte;
   flag : boolean;
begin

   flag := false;

   repeat

      flag := true;

      for i := 1 to n-1 do
       if not(x[i, 2]>=x[succ(i), 2]) then begin

          flag := false;

          temp := x[i, 1];
          x[i, 1] := x[succ(i), 1];
          x[succ(i), 1] := temp;

          temp := x[i, 2];
          x[i, 2] := x[succ(i), 2];
          x[succ(i), 2] := temp;

       end;

   until flag;

end;

Begin

   clrscr;

   InitArray(arr);

   PrintArray(arr, n, m);

   for t := 1 to n do begin
      result[t, 1] := Addition(arr, t);
      result[t, 2] := Multiplication(arr, t);
   end;

   PrintArray(result, n, 2);

   SortResult(result);

   PrintArray(result, n, 2);

   readln;
End.