Определить минимальный элемент в произвольно заданной матрице - Pascal ABC
Формулировка задачи:
Определить минимальный элемент в произвольно заданной матрице размером 4 х 6 и заменить на это минимальное значение элементы строки и столбца , которым принадлежат найденное значение.
Решение задачи: «Определить минимальный элемент в произвольно заданной матрице»
textual
Листинг программы
program pr;
const
n = 4;
m = 6;
var
a: array [1..100, 1..100] of integer;
i, j, min, imin, jmin, temp: integer;
begin
for i := 1 to n do
for j := 1 to m do
a[i, j] := random(21)-10;
for i := 1 to n do
begin
for j := 1 to m do
write(' ', a[i, j]:3);
writeln;
end;
min := a[1, 1];
for i := 1 to n do
for j := 1 to m do
if a[i, j] <= min then
begin
min := a[i, j];
imin := i;
jmin := j;
end;
writeln('Минимальный элемент: ', min);
for i:=1 to n do
a[i,jmin]:=min;
for j:=1 to m do
a[imin,j]:=min;
for i := 1 to n do
begin
for j := 1 to m do
write(' ', a[i, j]:3);
writeln;
end;
end.