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

[Mizantrop]

Ввести матрицу, вывести ее.Найти сумму элементов в той строке, где произведение элементов максимально.

[sllh_111]

Mizantrop
не совсем тебя понял, но но всё таки вот:

uses crt;
const
 nstr=2; {Кол. строк в матрице}
 nstb=3; {Кол. столбцов в матрице}
var
 i,j: integer;                                        {счетчики}
 Max:integer;                                      {Максимальная сумма в матрице по строкам}
 s,st:integer;                                      {s-сумма по строке, st - строка}
 Matrix:array[1..nstr,1..nstb] of integer;  {Массив матрицы A}
BEGIN
ClrScr;
if (nstr=1) or (nstb=1) then begin
writeln('Недопустимое число для составления матрицы');
            halt;
            end;

{=========== Ручной ввод с клавиатуры в матрицу A(nstr,nstb) ==========}
writeln(' ':10,'Матрица A');
for i:=1 to nstr do begin
  for j:=1 to nstb do begin
  write('Введите элементы строки ',i,' в матрицу A(',nstr,',',nstb,') ->');
  read(Matrix[i,j]);
                      end;
                    end;
writeln('Продолжение - ENTER(ВВОД)');
readln;

{=== Вывод элементов матрицы на дисплей =========}
for i:=1 to nstr do begin
  for j:=1 to nstb do begin
write('Matrix(',i,',',j,')=',Matrix[i,j],' ');
                      end;
                writeln;
                    end;
writeln('Количество строк -> ',nstr);
writeln('Количество столбцов -> ',nstb);
writeln(' ---------------------------');


{=== Запись Максимальной суммы и строки ======}
for i:=1 to nstr do begin
                s:=0;
  for j:=1 to nstb do begin
                   s:=s+Matrix[i,j];
                   end;
           writeln('Строка матрицы -> ',i,' сумма по строке -> ',s);

                   if i=1 then begin
                                Max:=s;
                                st:=i;
                               end
                               else begin
        if Max<s then begin
            Max:=s; {Максимальная сумма в матрице по строке}
            st:=i;       {Строка матрицы где найдена максимальная сумма}
                      end;
                                    end;
                 end;
writeln('Максимальная сумма матрицы A=',Max,' находится в строке ',st);
writeln('Продолжение - ENTER(ВВОД)');
readln;
END.

ток с тебя:
нажми на весы в моём профиле и кинь полож. оценку.