двумерные массивы

[sanyok_amd]

Здравствуйте, передо мной стоит следующая задача: даны два двумерных квадратных массива (15х15) и (30х30). Нужно с помощью одной функции обработать эти массивы. Собственно проблема в том, что я не знаю как эти массивы передать в функцию, подозреваю что нужно использовать динамический массив.... Подскажите , пожалуйста, как это сделать правильно.

Delphi

[VKorablev]

язык какой?)

[Alex11223]

язык-то какой?

[sanyok_amd]

извиняюсь, забыл написать - delphi

[VKorablev]

тока мне непонятно : какого типа массивы, задаются с клавиатуры или рандомно, и как обработать?

[sanyok_amd]

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

[VKorablev]

функция находит сумму элементов массива и выводит ее?
тоесть буквально это будет выглядеть s:=myfunction(a,b)? где а и б - массивы?

[Alex11223]

подсчитать сумму всех элементов каждого из массивов без учёта элементов главной диагонали.

Это как? Что должна вернуть\вывести функция? Или имеется в виду, что функция будет вызвана 2 раза?

[sanyok_amd]

вот условие задачи:

Вычислить сумму элементов каждой из матриц А(15,15) и В(30,30) без учета элементов главной диагонали. Задачу решить с использованием подпрограммы.

Подозреваю, что ответ должен состоять из двух чисел: сумма(А) и сумма(В)

тело функции примерно такое:
for i:=1 to n do
begin
for j:=1 to n do
begin
if i<>j then
sum:=sum+H[i,j];
end;
end;

[sanyok_amd]

да, функция будет вызвана 2 раза. Я не знаю, как одной и той же функцией обработать массивы различного размера...