Нужно решить задачу в паскале: прямоугольная матрица A[K,N].В строках с максимальной суммой элементов расположить элементы по возрастанию

[Артём0210]

дана прямоугольная матрица A[K,N].В строках с максимальной суммой элементов расположить элементы по возрастанию

[p51x]

1. Найти максимум в одномерном массиве - тривиальная задача, описана много где
1.1 Сумма элементов одномерного массива - тривиальная задача
2. Отсортировать одномерный массив - тривиальная задача

А теперь вопросы: Как делали? Какие ошибки выдал компилятор?

[Артём0210]

Пишу на бумаге, поэтому и сложности...
Только недавно начал изучать паскаль, то есть есть затруднения в написании программы без примера в виде старых работ.
П.с - контрольная так то
Буду признателен если вы решите эту задачу, ибо я уже многое перерыл в инете и ничего подходящего не нашёл.

[Serge_Bliznykov]

ввод/вывод матрицы Вы в состоянии написать?


тогда

{найти максимальную сумму по строкам матрицы}
maxSum := 0;
for i:=1 to K do begin
  sum := 0;
  for j:=1 to N do sum := sum + A[i,j];
  if sum>maxSum then maxSum := sum;
end;

{перебрать строки, просуммировать, если строка имеет сумму, 
равную максимальной сумме, отсортировать элементы в этой строке матрицы}
for i:=1 to K do begin
  sum := 0;
  for j:=1 to N do sum := sum + A[i,j];
  if sum=maxSum then begin 
     {сортировка i-й строки}
        for ii:=1 to n-1 do
         for jj:=ii+1 to n do
          if a[i,ii]>a[i,jj] then begin
            tmp:=a[i,ii];
            a[i,ii]:=a[i,jj];
            a[i,jj]:=tmp;
           end;
  end
end;

[Артём0210]

Да, могу
Большое спасибо за вашу помощь.

[Serge_Bliznykov]

при поиске максимальной суммы я сделал неверное допущение, что у нас в матрице нет отрицательных значений.
это неверно.

исправьте пожалуйста код на

{найти максимальную сумму по строкам матрицы}
for i:=1 to K do begin
  sum := 0;
  for j:=1 to N do sum := sum + A[i,j];
  if (i=1) or (sum>maxSum) then maxSum := sum;
end;

[Артём0210]

Понял, исправил. Спасибо