нахождение минимального элемента матрицы в виде функции Опции

[ulika]

9. Сформировать двумерный массив Z размером 3 x 11 с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Вычислить сумму положительных элементов строки, в которой находится минимальный элемент матрицы Z (оформить нахождение минимального элемента в виде функции). Вывести на экран и в файл полученную сумму и номер строки

[ulika]

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

[Lapp]

прочитала просто что открытый - это с нуля нумерация, вот и решила что закрытый это с единицы.

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

На всяк случай: вот так можно избежать привязки к только одному массиву (что делает использование функции бессмысленным):

var
  mas: array[1..N1,1..N2]of integer;    // два          массива
  mas2: array[1..M1,1..M2]of integer;  //       разных 

...

function MinRow(a: array of integer; m,n: integer): integer; //размер массива не объявлен (открытый массив)
var
  i,j,x,y: integer;
begin
  x:=0;
  y:=0;
  for i:=0 to m-1 do for j:=0 to n-1 do begin if a[i*n+j]<a[x*n+y] then begin //пересчитываем индекс
    x:=i;
    y:=j
  end;
  MinRow:=x+1
end;

...

  i:= MinRow(mas,N1,N2);     //нажодим строку с минимумом в mas
  j:= MinRow(mas2,M1,M2);     //нажодим строку с минимумом в mas2
...

В таком виде функцию можно применять к разным массивам любой размерности.

P.S.
Исправил..