Использование массивов в качестве аргументов подпрограммы (Delphi)

[flamingo78]

Помогите решить...

Найти количество и координаты (номер строки и столбца) локальных минимумов матрицы А. Локальным минимумом матрицы в данной задаче считать элемент а[i][j], для которого одновременно выполняются два неравенства: a[i-1][j]>a[i][j]<a[i+1][j] и a[i][j-1]>a[i][j]<a[i][j+1] (i=2, n-1; j=2, n-1)

Заранее спасибо!

[Z1000000]

перебирай все элементы по строкам и столбцам от 2 до n-1. И для каждого проверяй выполнимость условий локального минимума.
Чем тебе еще помочь?

[Serge_Bliznykov]

а формально ответ на вопрос, который сформулирован в заголовке темы:

вариант 1

type
  MyArrayType = array[1..100] of integer;

procedure Primer1(var M1, M2 : MyArrayType);
begin
   ..
end;

// пример вызова
var
  Mas1, Mas2 : MyArrayType;
begin
  Primer1(Mas1, Mas2);
....

вариант 2.

procedure Primer1(var M1, M2 : array of integer);
begin
   ...
end;

// пример вызова
var
  Mas1, Mas2 : array[1..100] of integer;
begin
  Primer1(Mas1, Mas2);