паскаль:лматрицы

[@lenk@]

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

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

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.

[@lenk@]

ЭТО НЕ ТО РЕШЕНИЕ. В ВАШЕМ КОДЕ НЕ УЧИТЫВАЕТСЯ МАТРИЦА М В КОТОРОЙ СТРОК И СТОЛБЦОВ НА 1 МЕНЬШЕ ЧЕМ В МАТРИЦЕ А. МОЙ ВОПРОС ТАКОЙ: КАК СДЕЛАТЬ СОЗДАТЬ МАТРИЦУ М ВЫБРАСЫВАНИЕМ m-ной СТРОКИ И n-нойСТОЛБЦА ИЗ МАТРИЦЫ А????????? А ВОТ МАТРИЦА В УЖЕ СТРОИТСЯ ПО МАТРИЦЕ М , КОТОРУЮ ВЫ НИКАК НЕ РАССМАТРИВАЕТЕВ СВОЕМ КОДЕ. мОЙ ВОПРОС ЗАКЛЮЧАЕТСЯ В СЛЕДУЮЩЕМ :КАК СОЗДАТЬ МАТРИЦУ М???

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

СОЗДАТЬ МАТРИЦУ М ВЫБРАСЫВАНИЕМ m-ной СТРОКИ И n-нойСТОЛБЦА ИЗ МАТРИЦЫ А

уважаемая(ый) @lenk@ а вот это по вашему что

 if (a1[i1,j1]< m) and ((i1<>o) and (j1<>p)) then

а орать не стоит - лучше разобраться в предложенном коде!
ну а проще всего запустить и посмотреть result!