Массив.

[MOSTEN]

Дана матрица B[N,M]. Найти в каждой строке матрицы максимальный и минимальный элемент и поменять их местами с первым и последним элементом строки соотвественно.

[Stilet]

Ну покажи хотя бы как ты вводишь матрицу

[leejack]

program matrix;

type 
  MinMax = record
     min : integer;
     max : integer;
     Row : integer;
     Cow : integer;
  end;

const
  N=3;
  M=3;
var
   i, j, k : integer;
   min, max : MinMax;
   B : array [1..N,1..M] of integer;
begin
   k:=100;
   WriteLn;
   min.min :=k;
   max.max := 0; 
//------------------------------Заполняем массив NxM-----------------------------------
   for i := 1 to N do
   begin
       for j := 1 to M do
       begin
           B[i,j] := random(k);
           Write(B[i,j], ' ');
//----------------Поиск Min------------------------------
           if B[i,j]<min.min then
           begin
              min.min := B[i,j];
              min.Row := i;
              min.Cow :=j;
           end;
//--------------------------------------------------------
//----------------Поиск Max------------------------------
           if B[i,j]>max.max then
           begin
              max.max := B[i,j];
              max.Row := i;
              max.Cow :=j;
           end;
//--------------------------------------------------------
       end;
       WriteLn;
//---------------Меняем местами Min и Max---------------
       B[min.Row, min.Cow] := max.max;
       B[max.Row, max.Row] := min.min;

       min.min := k;
       max.max := 0;
   end;   
//--------------------------------------------------------
   WriteLn;
//-------Выводим результатирующую матрицу------------
 for i := 1 to N do
   begin
       for j := 1 to M do
       begin           
           Write(B[i,j], ' ');
       end;
       WriteLn;
   end;   
end;
//--------------------------------------------------------