Поменять местами столбец, произведение элементов которого является наименьшим, со столбцом, сумма элементов которого является наибольшей - Turbo Pascal - Ответ 2094474

  const n=5; // установить размер матрицы
  var
    a : array[1..n+2,1..n] of real;
    x : real;
    i,j,minPr,maxSum : Byte;
    b : boolean;
  Begin
    randomize;
    for j:=1 to n do a[n+1,j]:=0; { для выч суммы}
    for j:=1 to n do a[n+2,j]:=1; { для выч произведения}
    writeln('исходная матрица: ');
    for i:=1 to n do begin
      for j:=1 to n do begin
        a[i,j]:=random(20)/7+1;
        a[n+1,j]:=a[n+1,j]+a[i,j];
        a[n+2,j]:=a[n+2,j]*a[i,j];
        write(a[i,j]:6:2);
      end;
      writeln;
    end;
    writeln;
 
    minPr:=1; maxSum:=1;
    for j:=2 to n do begin
      if a[n+2,j]<a[n+2,minpr] then minpr:=j;
      if a[n+1,j]>a[n+1,maxsum] then maxsum:=j;
    end;
 
    writeln('максимальная сумма в  ',maxsum,'  ; минимальное произведение в ',minpr);
    if maxsum=minpr then writeln('замена не требуется !') else begin
      for i:=1 to n do begin
        x:=a[i,maxsum];
        a[i,maxsum]:=a[i,minpr];
        a[i,minpr]:=x;
      end;
      writeln('после замены :');
      for i:=1 to n do begin
        for j:=1 to n do begin
          write(a[i,j]:6:2);
        end;
        writeln;
      end;
      writeln;
    end;
 
    repeat
      b:=true;
      for i:=1 to n-1 do if a[i,n]>a[i+1,n] then begin
        for j:=1 to n do begin
          x:=a[i,j];
          a[i,j]:=a[i+1,j];
          a[i+1,j]:=x;
          b:=false;
        end;
      end;
    until b;
 
    writeln('после сортировки по последнему столбцу :');
    for i:=1 to n do begin
      for j:=1 to n do begin
        write(a[i,j]:6:2);
      end;
      writeln;
    end;
    writeln;
 
    readln;
  End.