Двумерный массив (матрица)

[Mizantrop]

Ребята, помогите пожалуйста решить задачку.Сам пробовал, но что-то не так.Если можно решение пришлите на почтуavel_26.07.1991@mail.ru.Зара нее благодарен.
Задача:
Ввести матрицу, вывести ее.Найти сумму элементов в той строке, где произведение элементов максимально.

[Uncle_Dima]

на чём решать? с++ или Паскаль

[eoln]

"Есть оптимистичные люди.
Есть ОЧЕНЬ оптимистичные люди.
А есть такая категория оптимистичных людей, которая не поддается никакому описанию: они пишут на форумах - "скиньте мне эту песню на мыло, я буду ждать! " ©bash.org.ru

http://bash.org.ru/quote/403168

Сам пробовал, но что-то не так.

А показать наработки...
Можно поиском по форуму пройтись.

[Mizantrop]

на паскале

[Mizantrop]

Program L1;
type
matrix = array [1..1000,1..1000] of integer;
var x:matrix;
y: array [1..1000] of integer;
i,j,n,m,imax,max,p,s:byte;
begin
writeln ('введите размер матрицы');
readln (n,m);
for i:=1 to n do
for j:=1 to n do
begin
write ('x[',i,',',j,'])=');
readln (x[i,j]);
end;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(x[i,j]:5);
writeln;
end;
end;
Begin
for i:=1 to n do
p:=1;
for j:=1 to m do
p:=p*x[i,j];
begin
for i:=1 to n do
max:=1;
for j:=1 to m do
begin
if p>max then
max:=p;
imax:=i;
begin
for i:=i to n do
s:=0;
s:=s+y[i]
end;
end;
end;
end;
end.

[Mizantrop]

я в программировании полный нуб,вот то, что я сотворил.

[eoln]

type
  matrix = array [1..100,1..100] of integer;
var
  x:matrix;
  i,j,n,m,stroka:byte;
  sum, p, pMax: longint;
begin
  writeln ('введите размер матрицы');
  readln (n,m);
  for i:=1 to n do
  for j:=1 to m do
  begin
    write ('x[',i,',',j,'])=');
    readln (x[i,j]);
    //x[i,j] := random(5)+1; write(x[i,j]:2); if j=m then writeln;
  end;

    for i:=1 to n do
  begin
    for j:=1 to m do
      write(x[i,j]:5);
    writeln;
  end;

  pMax := -999999;
  stroka := 1;
  for i := 1 to n do
  begin
    p := 1;
    for j := 1 to m do p := p * x[i, j];
    if p > pMax then
    begin
      pMax := p;
      stroka := i;
    end
  end;

  sum := 0;
  for j := 1 to m do sum := sum + x[stroka, j];

  writeln('stroka #', stroka, ' proizv = ', pMax, ' summa = ', sum);

  readln
end.

[Mizantrop]

Большое человеческое спасибо.