Матрица

[Tatum]

Получить новую матрицу V путем удаления из матрицы A[n,n] строки и столбца, на пересечении которых находится минимальный элемент.

[unbanned]

imin := 1; jmin := 1;
  for i := 1 to n do
    for j := 1 to m do
      if a[i, j] < a[imin, jmin] then begin imin := i; jmin := j; end;
  di := 1;
  for i := 1 to n do 
  begin
    dj := 1;
    for j := 1 to m do 
    begin
      if j <> jmin then 
      begin
        v[di, dj] := a[i, j];
        dj := dj + 1;
      end;
    end;
    if i <> imin then di := di + 1;
  end;

как-то так...