PASCALABC Найдите в каждой строке матрицы максимальный и
минимальный элемент и поменяйте их местами. Выполните обработку матрицы. Размер
матрицы запрашивать в программе. Вывод матрицы на экран
оформить в общепринятом виде.
Найдите в каждой строке матрицы максимальный и
минимальный элемент и поменяйте их местами. Выведите матрицу на экран.

Предыдущий
вопрос Следующий
вопрос

Пример решения на языке PascalABC:

const
MAX_SIZE = 100;
var
matrix: array[1..MAX_SIZE, 1..MAX_SIZE] of integer;
n, m, i, j, maxIdx, minIdx, temp: integer;
begin
write('Введите количество строк матрицы: ');
readln(n);
write('Введите количество столбцов матрицы: ');
readln(m);
writeln('Введите элементы матрицы:');
for i := 1 to n do
for j := 1 to m do
read(matrix[i, j]);
writeln('Исходная матрица:');
for i := 1 to n do
begin
for j := 1 to m do
write(matrix[i, j], ' ');
writeln;
end;
for i := 1 to n do
begin
maxIdx := 1;
minIdx := 1;
for j := 2 to m do
begin
if matrix[i, j] > matrix[i, maxIdx] then
maxIdx := j;
if matrix[i, j] < matrix[i, minIdx] then
minIdx := j;
end;
temp := matrix[i, maxIdx];
matrix[i, maxIdx] := matrix[i, minIdx];
matrix[i, minIdx] := temp;
end;
writeln('Матрица после замены максимального и минимального элементов в строках:');
for i := 1 to n do
begin
for j := 1 to m do
write(matrix[i, j], ' ');
writeln;
end;
end.

Этот код позволяет пользователю ввести размеры матрицы и её элементы, затем находит и меняет местами максимальный и минимальный элементы в каждой строке матрицы и выводит измененную матрицу на экран.