Поменять местами строки с наименьшей и наибольшей суммой элементов - Turbo Pascal - Ответ 5924559

program maxminsum;
Uses crt;
Const
  n = 6;
var
i, j, tmp, min, max, sum,k1, k2 : integer;
a         : array [1..n,1..n] of integer;
Procedure print;
BEGIN
Randomize;
WriteLn('            Массив создан');
For i:=1 to n do
  Begin
    for j:=1 to n do
      begin
        a[i,j]:=random(30)-10;
        write('|',a[i,j]:4,' ');
      end;
    writeln('|');
  End;
  writeLn('|-----------------------------------|');
END;
Procedure find_sum_min_max;
BEGIN
WriteLn('        Подсчет суммы каждой строки');
max:=-32768; min:=32767;
For i:=1 to n do
  begin
    sum:=0;
    for j:=1 to n do
      begin
        sum:=a[i,j] + sum;
        write('|',a[i,j]:4,' ');
      end;
    writeln('| ',sum:4,' |');
    if sum>max then
      begin
        max:=sum;
        k1:=i;
      end;
    if sum<min then
      begin
        min:=sum;
        k2:=i;
      end;
  end;
  writeLn('|------------------------------------------|');
END;
Procedure obmen;
BEGIN
    For j:=1 to n do
      Begin
        tmp:= a[k2,j];
        a[k2,j]:=a[k1,j];
        a[k1,j]:=tmp;
      End;
END;
Procedure vivod;
BEGIN
WriteLn('      Массив с переносом строк');
For i:=1 to n do
  Begin
    for j:=1 to n do
      write('|',a[i,j]:4,' ');
      writeln('|');
  End;
  writeLn('|-----------------------------------|');
END;
BEGIN
clrscr;
print;
find_sum_min_max;
obmen;
vivod;
readkey;
END.