Помогите с лабораторкой

[Raptor5]

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

Условие:
Найти в двухмерном массиве максимальное число и вернуть из подпрограммы процедуры поиск указателя на это значение..

[Raptor5]

Забыл уточнить что делать надо на паскале.

[Greblin]

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

program Project2;

uses crt;

type Massiv = array[1..10,1..10] of integer;
     pMassiv = ^Massiv;
     pint = ^integer;

var arr: Massiv;
    i, j: integer;
    pArr: pMassiv;
    el: integer;
    p: pint;

function FindMax(mas: pMassiv): pint;
var i, j: integer;
    max: integer;
    res: pint;
begin
max := mas^[1, 1];
res := @mas^[1, 1];
for i := 1 to 10 do
  for j := 1 to 10 do
    if mas^[i, j] > max then
      begin
      max := mas^[i, j];
      res := @mas[i, j];
      end;
FindMax := res;
end;

begin
randomize();
fillchar(arr, sizeof(arr), 0);
for i := 1 to 10 do
  for j := 1 to 10 do
    arr[i, j] := random(10000);
pArr := @arr;
p := FindMax(pArr);
el := p^;
writeln(el);
end.

Если под указателем подразумеваются 2 числа, обозначающие место элемента в массиве, измени функцию так, чтоб она возвращала, например, запись {x, y}

[Raptor5]

спасибо большое