матрицы

[@lenk@]

дана вещественная матрица А размером m*n. обозначим М(с индексом i,j) матрицу размером (m-1)*(n-1), получаемую из матрицы А выбрасыванием i-той строки и j-того столбца. Построить матрицу В, где каждый элемент b( с индексом i,j) равен наименьшему из элементов матрицы М(с индексом i,j).

помогите решить!!! Заранее благодарю

[Stilet]

Так подожди на чем решить то?

[@lenk@]

в паскале надо

[ОДИНОЧЕСТВО В СЕТИ]

type matrix= array[1..100,1..100] of Integer;
const n=5;
var
  i,j,k,l:Integer;
  a,b:matrix ;
  function min(var a1:matrix; o,p:integer):integer;
  var
    i1,j1:Integer;
    m:Integer;
  begin
    m:=26;
    for i1:=1 to n do
    for j1:=1 to n do
      if (a1[i1,j1]< m) and ((i1<>o) and (j1<>p)) then
        m:=a1[i1,j1];
    min:=m
  end;
begin
  Randomize;
  for i:=1 to n do
  for j:=1 to n do
    a[i,j]:=Random(25);

  Writeln(' ___________________');
  Writeln('|                   |');
  Writeln('|     Matrix A      |');
  Writeln('|___________________|');
  for i:=1 to n do begin
    write('| ');
    for j:=1 to n do
      write(a[i,j]:3);
    write('   |');
    Writeln;
  end;
  Writeln('|___________________|');

  for k:=1 to n do
  for l:=1 to n do
    begin
      b[k,l]:=min(a,k,l)
    end;

  Writeln(' ___________________');
  Writeln('|                   |');
  Writeln('|     Matrix B      |');
  Writeln('|___________________|');
  for i:=1 to n do begin
    write('| ');
    for j:=1 to n do
      write(b[i,j]:3);
    write('   |');
    Writeln;
  end;

  Writeln('|___________________|');
  Readln;
end.