Вот что получилось. Максимальную/минимальную сумму находит правильно. А вот с номером строки проблема
Код
program matr;
var
stroka:array[1..10,1..10] of integer;
i,j,n,m,minsum,maxsum,maxi,mini:integer;
s:integer;
begin
writeln(' Введите n');
readln(n);
writeln('введите m');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write ('введите d[',i,',',j,']:');
read(stroka[i,j]);
end;
For i:=1 to i-(i-1) do
begin
minsum:=0;
for j:=1 to m do
minsum:=minsum+stroka[i,j];
maxsum:=minsum;
mini:=1;
maxi:=1;
end;
for i:=2 to n do
begin
s:=0;
for j:=1 to m do
s:=s+stroka[i,j];
if s>maxsum then
maxsum:=s;
maxi:=i;
If s<minsum then
minsum:=s;
mini:=i;
end;
writeln(строка с max значением',maxi );
writeln('max значение ',maxsum);
writeln('строка с мин значением',mini);
writeln('min мин значение',minsum);
end.