Всем привет,
Задача: Необходимо определить минимальные элементы и их расположение (номер строки и столба) для матрицы А (10, 15) и В (15, 12).
Код:
Cоnst n = 10; m = 15;
Type myMas = Array [ 1 .. n, 1 .. m ] of integer;
Var
a : myMas;
i, j : Integer;
sb, sr : integer;
begin
Randomize;
for i := 1 to n do
begin
for j := 1 to m do
begin
a[ i, j ] := random(100);
Write( a[ i, j ]:5 );
end;
WriteLn;
end;
WriteLn;
sb := 1;
sr := 1;
for i := 1 to n do
for j := 1 to m do
begin
if a[ i, j ] < a[ sr, sb ] then
begin
sr := i;
sb := j;
end;
end;
< вывод sr, sb, a[ sr, sb ] >
ReadLn;
end.
Для второй матрицы, код пишу по аналогии.
У меня просьба. Может ли кто-то написать мне этот код используя процедуры? А то я в них не очень... Может кто-то помочь?
Спасибо большое.