найти наименьший элемент матрицы X (15,20) и записать нули в ту строку и столбец , где он находится

[anuta1995]

найти наименьший элемент матрицы X (15,20) и записать нули в ту строку и столбец , где он находится
FRee paskal

[proef]

ну наименьший элемент матрицы находится по такому принципу
:
инициализируешь переменную min = (допустим) 10000,s(строка),st(столбец)
матрица а[n,m]
цикл по строкам (i) до n
{
цикл по столбцам (j) до m
{
если (min > a[i,j])
тогда
min = a[i,j] ;
i = s;
st = j;
} }
потом просто выводишь переменную min
потом
цикл по строкам(i) до n
{
a[i,st] = 0;}
цикл по столбцам (J) до m
a[s,j] = 0;}

[Serge_Bliznykov]

позвольте чуть-чуть подправить алгоритм.

совершенно незачем иницилизировать min значение значением 10000.
если действительно нужная такая переменная, то в неё можно взять любое РЕАЛЬНОЕ значение из матрицы (обычно берут первое, и обычно это A[1,1] )
но, в данном случае min вообще не нужен!

я бы предложил такое решение:

const n=15; m=20;
var A : array[1..n, 1..m] of  integer;
 i, j, MinI, MinJ : integer;
begin
   {заполним матрицу случайными числами для простоты}
   Randomize;
   for i:=1 to n do
     for j:=1 to m do 
       A[i,j] := Random(100);

  {выведем матрицу на экран}
  WriteLn('Начальная матрица: ');
   for i:=1 to n do begin
     for j:=1 to m do 
       Write(A[i,j]:3,' ');
     WriteLn
   end;

  {найдём индексы строки и столбца с минимальным элементом}
  MinI := 1;  MinJ := 1; {изначально принимаем за минимальный элемент значение A[1,1]}
   for i:=1 to n do
     for j:=1 to m do 
       if A[i,j] <  A[MinI,MinJ] then begin
         MinI := i; MinJ := j;
       end

  WriteLn('Минимальный элемент ', A[MinI,MinJ], ' найден в ',MinI,' строке ',MinJ, 'столбце.' )

  {обнулим MinI строку}
  for j:=1 to m do A[MinI, j] := 0;

  {обнулим MinJ столбец}
  for i:=1 to т do A[i,MinJ] := 0;

  {выведем матрицу на экран}
  WriteLn('Полученная матрица: ');
   for i:=1 to n do begin
     for j:=1 to m do 
       Write(A[i,j]:3,' ');
     WriteLn
   end;

  Readln;
end.