Найти в каждой строке матрицы максимальный и минимальный элементы и поместить их на место первого и последнего элемента строки соответственно - Pascal

Формулировка задачи:

Найти в каждой строке матрицы максимальный и минимальный элементы и поместить их на место первого и последнего элемента строки соответственно. Матрицу вывести в общепринятом виде. Матрица:F(N,M) Условия и ограничения:N ≤20 M ≤10

Решение задачи: «Найти в каждой строке матрицы максимальный и минимальный элементы и поместить их на место первого и последнего элемента строки соответственно»

Листинг программы

uses crt;
const nmax=20;
      mmax=10;
var a:array[1..nmax,1..mmax] of integer;
    m,n,i,j,jmn,jmx:byte;
    mn,mx,x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
 begin
  mn:=a[i,1];
  mx:=a[i,1];
  jmn:=1;
  jmx:=1;
  for j:=1 to m do
   begin
    if a[i,j]<mn then
     begin
      mn:=a[i,j];
      jmn:=j;
     end;
    if a[i,j]>mx then
     begin
      mx:=a[i,j];
      jmx:=j;
     end;
   end;
  x:=a[i,1];a[i,1]:=a[i,jmx];a[i,jmx]:=x;
  x:=a[i,m];a[i,m]:=a[i,jmn];a[i,jmn]:=x;
 end;
writeln('Обмен элементов в строках:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal. Он предназначен для решения различных задач, включая обработку данных и вычисления. В начале кода объявляются необходимые переменные, такие как n и m, которые представляют количество строк и столбцов матрицы соответственно. Затем происходит чтение этих значений с клавиатуры. Далее происходит инициализация массива a. Он объявлен как array[1..nmax,1..mmax] of integer, то есть массив целых чисел размером nmax на mmax. Каждый элемент массива a[i,j] представляет собой число от 0 до 49. Затем происходит заполнение матрицы случайными числами. Для этого используется цикл for, который выполняется n (количество строк) раз. Внутри цикла происходит итерация по j (количество столбцов) от 1 до m. В каждой итерации значение a[i,j] устанавливается равным случайному числу от 0 до 49. После заполнения матрицы происходит вывод ее элементов на экран. Для этого используется цикл for, который выполняется n (количество строк) раз. Внутри цикла происходит итерация по j (количество столбцов) от 1 до m. В каждой итерации значение a[i,j] выводится на экран. Затем происходит обмен элементов в строках матрицы. Для этого также используется цикл for, который выполняется n (количество строк) раз. Внутри цикла происходит итерация по j (количество столбцов) от 1 до m. В каждой итерации значения a[i,j], a[i,m] меняются местами. В конце кода происходит вывод сообщения о том, что обмен элементов в строках выполнен успешно. Таким образом, данный код решает задачу нахождения максимального и минимального элементов в каждой строке матрицы и заменяет их на место первого и последнего элемента строки соответственно.