Нахождение минимального элемента матрицы переменной длины.паскаль.

[pif]

В общем такая задача, даны две матрицы, нужно приведя их к типу массив найти их минимальные элементы, при этом вывести номер столбца и строки где находится этот элемент.найдите ошибку плиз!

const m1=2;n1=4;  {n-kol-vo stolbcov,mkol-vo strok}
      m2=3;n2=4;
type
      t_arr=array[1..65520 div sizeof(integer)] of integer;
      t_matr_1=array [1..n1,1..m1] of integer;
      t_matr_2=array [1..n2,1..m2] of integer;
      t_mas=array [shortint] of integer;
procedure read_matr(var a;n,m:byte);
var
   z:byte;
   k:t_arr absolute a;
  begin
       for z:=1 to n*m do
       read (k[z]);
  end;
function min_el(var a:array of integer;n,m:byte;var g,h:byte):integer;
var min,i,j:integer;
    begin
    min:=maxint;
         for j:=1 to n do
            for i:=1 to m do
             if a[(i-1)*n+j]<min then
                begin
                     min:=a[(i-1)*n+j];
                     g:=j;{j-номер столбца}
                     h:=i;{i номер строки}
                end;
         min_el:=min;
    end;


var
   a:t_matr_1;
   b:t_arr absolute a;
   c:integer;k,g:byte;
  begin
       read_matr(a,n1,m1);
       c:=min_el(b,n1,m1,k,g);
       writeln (c);
       writeln (k,' ',g);
       readln;
       readln;
  end.

[pif]

что никто не знает в чем дело?

[ImmortalAlexSan]

min:=a[1,1];
For i:=1 to ... do
For j:=1 to ... do
begin
If min>a[i,j] then
begin
min:=a[i,j];
str:=i;
stolb:=j;
end;
end;
showmessage('Координаты минимального элементы'+str+' '+stolb);

Вот рабочий код, только аод свою стреду переделайте.

[pif]

Вот рабочий код, только аод свою стреду переделайте.

не это не то, это просто алгоритм поиска мин элемента, а я прошу,для матрицы, неизвестного размера, те передаешь процедуре матрицу любую, а она находит что надо,в паскале.
поэтому с помощью абсолюта, записываю эту матрицу в тоже место в памяти что и одномерный массив. только ошибка где то не могу найти.

[ImmortalAlexSan]

Так ладно. Где ошибка? В какой строке? Если конечно паскаль показывает это. Я уже не помню. Вобщем ошибка точно есть =) В самой функции копайтесь, переменные посмотрите, их типы. Попробуйте в одних типах всё сделать, и мне кажется что тут

    min:=a[(i-1)*n+j];
                     g:=j;{j-номер столбца}
                     h:=i;{i номер строки}
                end;
         min_el:=min;

С выводом проблема, но я могу ошибаться. Попробуйте меньше матриц взять и сделать без функции а потом наращивайте проэкт... Всё чем могу помочь - помог.

[pif]

Не ошибка не в компиляции, а в ответе, не то что надо выдает.

 min:=a[(i-1)*n+j];
                     g:=j;{j-номер столбца}
                     h:=i;{i номер строки}
                end;
         min_el:=min;

сдесь наврядли, потому что я просто перебираю элементы,нахожу их в одномерном массиве, который записан по тому же адресу.

[ImmortalAlexSan]

Я же говорю прокрутите минимум из программы и посмотрите где что не так идет а потом в функцию загоните.

[pif]

Сообщение от ImmortalAlexSan

Я же говорю прокрутите минимум из программы и посмотрите где что не так идет а потом в функцию загоните.

хех ну легко сказать, тут и так программа маленькая.
ну ввод матрицы работает. а вот минимум не так ишет как надо.

[pif]

кто нить знает я тут на тот адрес что надо записываю?
и нумерация в циклах должна не с 0 начинаться?

[ImmortalAlexSan]

Я привел пример минимума вам. Отталкивайтесь от него) И постепенно наращивайте=) Ладно я спать удачи! Ваш выбор с чего нумерацию начинать. Элементы массива только вот с единицы начинаются. Главное чтобы вы перебрали цикл столько раз сколько элементов в матрице=)