В массиве целых чисел поменять местами строки с наибольшим и наименьшим элементами - Pascal ABC - Ответ 3934544

program _array;
 
const
 
 N  = 5;
 M  = 5;
 
    
type
 
  TArray = array [1..N,1..M] of integer;
  TLine  = array [1..M] of integer;
  
  TIndex = record
   i  : integer;
   j  : integer;
  end;
  
var
 
  Matrix : TArray;
 
 
procedure FillMatrix(var a_Matrix:TArray;rnd:boolean;lb,rb:integer);
{    процедура заполнения матрицы из диапазона [lb,rb]
rnd = TRUE - случайными значениями ; rnd = FALSE - вручную}
 var
  i,j,k : byte;
 function RandomInt(left,right:integer):integer;
 {возвращает случайное целое число из диапазонa (left,right)                                                    }
  var
   x    : integer;
   sign : 0..1;
 begin 
  if left<right then 
  begin
   if right <= 0  then repeat
                         x:=-Random(Abs(left));
                       until x<=right  
                  else repeat 
                        x:=Random(right);
                        sign:=random(2);
                        if sign>0 then x:=-x;
                       until (x>=left) and (x<=right);
   RandomInt:=x;
  end else RandomInt:=0;
 end; 
begin
 case rnd of 
    FALSE:begin
           for i:=1 to N do 
           for j:=1 to M do begin
                            repeat
                             write('[',i,',',j,'] (',lb,'..',rb,'): ');
                             readln(k);
                            until (k>lb)and(k<rb);
                            end;
          end;
    TRUE:begin
          for i:=1 to N do
          for j:=1 to M do a_Matrix[i,j]:=RandomInt(lb,rb);
         end;
 end;
end;
 
procedure PrintMatrix(const a_Matrix:TArray);
{     процедура вывода матрицы на экран      
                                              }
 var
  i,j : byte;
begin
 writeln;
 for i:=1 to N do begin
 for j:=1 to M do write(a_Matrix[i,j]:5,' ');
                  writeln;
                  end;
 writeln;
end;
 
Function GetMinIndex(const Matrix:Tarray):Tindex;
{ функция возвращает индекс минимального элемента матрицы}
 var
  
  i,j:integer;
  min:integer;
  imin:TIndex;
  
begin
 imin.i:=1;imin.j:=1;
 min:=Matrix[1,1];
 for i:=1 to N do 
 for j:=1 to M do 
 if min > Matrix[i,j] then begin
                            min:=Matrix[i,j];
                            imin.i:=i;
                            imin.j:=j;
                           end;
 GetMinIndex:=imin;                           
end;
 
Function GetMaxIndex(const Matrix:Tarray):Tindex;
{ функция возвращает индекс максимального элемента матрицы}
 var
  
  i,j:integer;
  max:integer;
  imax:TIndex;
  
begin
 imax.i:=1;imax.j:=1;
 max:=Matrix[1,1];
 for i:=1 to N do 
 for j:=1 to M do 
 if max < Matrix[i,j] then begin
                            max:=Matrix[i,j];
                            imax.i:=i;
                            imax.j:=j;
                           end;
 GetMaxIndex:=imax;                           
end;
 
procedure SwapLines(var a_Matrix:TArray;line1,line2:integer);
{меняет местами строки матрицы }
 var
  i    : integer;
  temp : TLine;
  
begin
 for i:=1 to M do temp[i]:=a_Matrix[line1,i];
 for i:=1 to M do a_Matrix[line1,i]:=a_Matrix[line2,i];
 for i:=1 to M do a_Matrix[line2,i]:=temp[i];
end;
 
BEGIN
{ fill & print matrix }
 randomize;
 FillMatrix(Matrix,true,-100,100); {false - если вручную}
 Writeln('исходная матрица: ');
 PrintMatrix(Matrix);
 
{process & output }
 SwapLines(Matrix,GetMinIndex(Matrix).i,GetMaxIndex(Matrix).i);
 Writeln('Полученная матрица: ');
 PrintMatrix(Matrix);
END.