PASCAL. Информатика, 10 класс.
Матрица A состоит из 8 строк и 10 столбцов. Найти минимальный элемент и удалить строку и столбец, на пересечении которых он находится.

Идея решения: сначала находим минимальный элемент матрицы и запоминаем номер его строки и столбца. Потом выводим новую матрицу, пропуская эту строку и этот столбец.

Программа на Pascal:

program DeleteMinRowCol;
const
n = 8;
m = 10;
var
A: array[1..n, 1..m] of integer;
i, j, minI, minJ: integer;
min: integer;
begin
for i := 1 to n do
for j := 1 to m do
read(A[i, j]);

min := A[1, 1];
minI := 1;
minJ := 1;

for i := 1 to n do
for j := 1 to m do
if A[i, j] < min then
begin
min := A[i, j];
minI := i;
minJ := j;
end;

writeln('Minimal element = ', min);
writeln('Row = ', minI, ' Column = ', minJ);

writeln('New matrix:');
for i := 1 to n do
if i <> minI then
begin
for j := 1 to m do
if j <> minJ then
write(A[i, j]:5);
writeln;
end;
end.

0 0 Пожаловаться