Двумерные массивы, Поиска строки с макс суммой Опции

[Анька]

Здравствуйте. Помогите решить такую задачу: дана прямоугольная матрица матрица. Найти строку с найбольшей и наименьшей суммой элементов. вывести на печать найденные строки и суммы их элементов. По форуму я искала, но не нашла. Помогите уж


Сообщение отредактировано: Анька - 7.07.2006 17:31

[Анька]

Вот что получилось. Максимальную/минимальную сумму находит правильно. А вот с номером строки проблема

Код

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.