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

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

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

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

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