Подскажите как в этой задаче найти в каких строках и столбах находится наименьшее значение
program programa;
var
a: array[0..50, 0..50] of integer;
i, j, n, m, min: integer;
begin
writeln('Программа для определения индексов минимального элемента заданного массива');
Randomize;
write('Введите количество строк ');
readln(n);
write('Введите количество столбов ');
readln(m);
for i := 1 to n do
begin
writeln;
for j := 1 to m do
begin
a[i, j] := random(51);
write(a[i, j]: 5);
end;
end;
writeln;
min := a[1, 1];
for i := 1 to m do
for j := 1 to n do
if a[i, j] < min then
min := a[i, j];
writeln('минимальный элемент массива =', min);
end.
Ответы (1 шт):
Автор решения: Alex R.
→ Ссылка
В блоке нахождения минимума надо запомнить столбец и колонку
if a[i, j] < min then
begin
min := a[i, j];
col := i;
row := j;
end;
Ничего прибавлять к индексам не надо, так как вы массив инициализируете с 1.
for i := 1 to n do
...
for j := 1 to m do
Лучше исправьте описание массива на
a: array[1..50, 1..50] of integer;