//найти наименьший элемент матрицы X (15,20)
// и записать нули в ту строку и столбец , где он находится
program Matrix1;
var
j,i,M,N:integer;
minj,mini:integer;
a: array [1..15,1..20] of integer;
begin

N:=15;
M:=20;
// Решение
// Заполнять будим случайными числами
 for i:=1 to N do begin
 for j:=1 to M do a[i,j]:=random(100);
 end;
// ищем минимум
minj:=1;
mini:=1;
 for i:=1 to N do begin
 for j:=1 to M do
if a[i,j]<a[mini,minj] then
  begin
  mini:=i;
  minj:=j;
  end;
 end;
// посмотрим исходный массив
writeln;
writeln('исходный массив');
 for i:=1 to N do begin
  for j:=1 to M do write(a[i,j]:3);
  writeln;
 end;

// зануляем что нужно
  for j:=1 to M do a[mini,j]:=0;
  for i:=1 to N do a[i,minj]:=0;
// смотрим что получилось
writeln;
writeln('Ответ');
 for i:=1 to N do begin
  for j:=1 to M do write(a[i,j]:3);
  writeln;
 end;
end.