Найти наибольший и наименьший элементы прямоугольной матрицы и поменять их местами. (программа Паскаль)

Вопрос посетителя

Найти наибольший и наименьший элементы прямоугольной матрицы и поменять их местами.

Ответ эксперта

const max = 7; // так, для примера
  var
    A : array [1..max,1..Max] of Integer;
    i,j,imax,imin,jmax,jmin : Byte;
    b : Integer;
  Begin
    Randomize; imax:=1; jmax:=1; imin:=1; jmin:=1;
    Writeln(‘Matrix A=’);
    for i:=1 to max do begin
      for j:=1 to Max do begin
        A[i,j]:=Random(300);
        write(A[i,j]:8);
        if A[i,j]>A[imax,jmax] then begin
          imax:=i; jmax:=j;
        end;
        if A[i,j]           imin:=i; jmin:=j;
        end;
      end;
      Writeln;
    end;
 
    writeln(‘Min[‘,imin,’,’,jmin,’]=’,A[imin,jmin],
    ‘  Max[‘,imax,’,’,jmax,’]=’,A[iMax,jmax]);
    b:=A[imax,jmax]; A[imax,jmax]:=A[imin,jmin]; A[imin,jmin]:=b;
 
    writeln(‘Matrix A posle:’);
    for i:=1 to max do begin
      for j:=1 to Max do write(A[i,j]:8);
      Writeln;
    end;
    readln;
  End.

Скачать ответРаспечатать решение