замена строк в массиве Опции

[Angelus]

есть задание двумерный массив a(5*4) вещественных чисел.
строку содержащую макс. эжлемент массива поменять со строкой содерж мин. элемент массива.

Заполнение массива я вроде сделал, и вывод первоначального массива тоже. Но немогу разобраться как определить макс или мин элемент и как сделать замену строк.

Я понимаю что где то на форуме это есть но найти не могу.

Код

const
   n=5;
   m=4;
var
 a:array[1..n,1..m] of real;
 i: integer; {index stroki}
 j: integer; {index stolbca}

begin
   {vvod znacheniy matrici}
   randomize;
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(99);




     {vivod matrici do obrabotki}
   writeln ('soderjimoe do obrabotki');
   for i:=1 to n do begin
   for j:=1 to m do
        write (a[i,j]:10);
   writeln;
   end;
           readln;
   end.

Сообщение отредактировано: Angelus - 7.09.2005 22:09

[volvo]

kent, чтобы не делать 2 лишних цикла, можно добавить новый тип:

type
  { оставляем это }
  TMatrix = array [1..n,1..m] of Real;

  { и добавляем: }
  TV = array[1 .. m] of real;
  TM = array[1 .. n] of TV;

и поменять кое-что в ReformMatrix:

Procedure ReformMatrix(var mx : TMatrix);
var i,j : Integer;
    min,max : Real;
    min_id,max_id : Integer;

    { вместо этого:
    temp : array [1..m] of Real; } 
    T: TV;
begin
    { тут вычисляем индекс строки мин. и макс. элемента }
    { ... }
    { и меняем строки без всяких циклов: }
    T := TM(mx)[min_id];
    TM(mx)[min_id] := TM(mx)[max_id];
    TM(mx)[max_id] := T;
end;