рекурсии

[fre]

Задана матрица размерности n*m. Определите в каждом столбце матрицы максимальное и минимальное число. Возведите минимальное число в степень, равную максимальному числу. Проверьте, являются ли полученные результаты кратными 3. Вспомогательные алгоритмы реализуйте с помощью рекурсивных процедур или функций и оформите в отдельный модуль. Ввод-вывод с помощью текстовых файлов.

[whatever]

Наработки есть? Если нет, готов написать полностью за вознаграждение.
icq: 613914086
skype: skull_negodue

[Plague]

Вспомогательные алгоритмы реализуйте с помощью рекурсивных процедур или функций

Минимум линейного массива находить с помощью рекурсии примерно так:

type mas=array [1..50] of longint;
function minmas(a:mas;n:longint):longint;
var min,x:longint;
begin
  min:=a[n];
  if n>1 then
    begin
      x:=minmas(a,n-1);
      if min>x then min:=x
    end;
  minmas:=min;
end;

Максимум просто поменять знак

min>x

вот тут.