Работа 3.7 Упр.10 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 10. Найти наибольший и наименьший элементы прямоугольной матрицы и поменять их местами. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-7/10 98

Подробный ответ

Во время заполнения матрицы одновременно ищем координаты наибольшего и наименьшего элементов. Для этого храним их индексы $$imax, jmax$$ и $$imin, jmin$$. После завершения ввода меняем найденные элементы местами и выводим полученную матрицу.

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] < A[imin,jmin] then begin
        imin := i; jmin := j;
      end;
    end;
    Writeln;
  end;
  Writeln(‘Min[‘, imin, ‘,’, jmin, ‘]=’, A[imin,jmin]);
  Writeln(‘Max[‘, imax, ‘,’, jmax, ‘]=’, A[imax,jmax]);
  b := A[imax,jmax];
  A[imax,jmax] := A[imin,jmin];
  A[imin,jmin] := b;
  Writeln(‘Matrix A posl:’);
  for i := 1 to max do begin
    for j := 1 to max do write(A[i,j]:8);
    Writeln;
  end;
end.