Нужно поменять местами макс. и мин. значения. что не так? program matrica; uses crt; const n=3; m=4; a=-20; b=20; var i, j, min, max, t: integer; y: array [1..n, 1..m] of integer; begin clrscr; randomize; writeln('matrica y'); min: =0; max: =0; t: =0; for i: =1 to n do begin for j: =1 to m do begin y[i,j]: =trunc((b-a)*random+a); write(y[i,j]: 6); if y[i,j]max then max: =y[i,j]; end; writeln; end; writeln('минимальное значение = ', min); writeln('максимальное значение = ', max); t: =min; min: =max; max: =t; for i: =1 to n do begin for j: =1 to m do begin write(y[i,j]: 6); end; writeln; end; readkey; end.

Program matrix;
var  A: array[1..10, 1..10] of integer;
i, j, mini, minj, maxi, maxj, temp: integer;
begin  Randomize;
  for i := 1 to 10 do  begin
    for j := 1 to 10 do    begin
      A[i, j] := random(100);
      write(A[i, j], ' ');
   end;
   writeln;
   end;
   mini := 1;
   minj:=1;
   maxi := 1;
   maxj:=1;
   for i := 1 to 10 do 
   for j := 1 to 10 do
    begin 
     if A[i, j] < A[mini,minj] then  begin 
      mini := i;
      minj := j;
     end;
      if A[i, j] > A[maxi,maxj] then      begin
       maxi := i;
       maxj := j;
      end;
      end;
      WriteLn('min = ',A[mini,minj],' это ',mini,' ряд ',minj,' столбца.' );
      WriteLn('max = ',A[maxi,maxj],' это ',maxi,' ряд ',maxj,' столбца.' );
       temp := A[maxi, maxj];
       A[maxi, maxj] := A[mini, minj];
       A[mini, minj] := temp;
       writeln;
       for i := 1 to 10 do  begin
        for j := 1 to 10 do
         write(A[i, j], ' ');
         writeln;
       end; 
       readln;
       end.
temp - переменная для временного хранения минимальных и максимальных элементов.