Двумерные массивы

[ENTER311]

1. В массиве A[n,m] найти сумму четных элементов и произведение нечетных элементов.

2. Дан массив X[m,n]. В каждой строке находится минимальный элемент, затем среди этих чисел выбирается максимальное. Напечатать номер строки массива Х, в которой расположено выбранное число.

[viron]

1. В массиве A[n,m] найти сумму четных элементов и произведение нечетных элементов.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

const
  n = 5;
  m = 3;
var
  A: array[1..n, 1..m] of Integer;
  row, col: Integer;
  summ, p: Integer;
begin
  summ:= 0;
  p:= 1;
  Randomize;

  for row:= 1 to n do
  begin
    for col:= 1 to m do
    begin
      A[row, col]:= RandomRange(1, 90);
      Write(A[row, col], ' ');
    end;
    Writeln;
  end;

  Writeln;

  for row:= 1 to n do
    for col:= 1 to m do
      if (A[row, col] mod 2 = 0) then summ:= summ + A[row, col]
      else p:= p * A[row, col];


  Writeln('Summ = ', summ);
  Writeln('p = ', p);

  Readln;
end.

[J.B.DiGriz]

int min = x[0][0];
int max = 0;
int nomer;

for (int i = 0; i<m; i++)
{
   if (max<min)
   {
       max = min;
       nomer = i;
   }
min = [0][i];
for (int j = 0; j<n; j++)
   if (min>x[i][j])
       min = x[i][j];
}

Попробуй что-нибудь типа этого...(код не проверял, так что за работоспособность не ручаюсь, но если идею не понял, то обращайся)