Указатели, Помогите разобраться Опции

[Анютка]

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

Сообщение отредактировано: Анютка - 14.04.2006 21:31

[APAL]

http://forum.pascal.net.ru/index.php?showtopic=6730

Сообщение отредактировано: APAL - 14.04.2006 21:43

[Анютка]

Я уже читала этот топик, учебники различные тоже читала... Только вот задачу решить все равно не могу

[volvo]

APAL, только вот динамические массивы здесь совсем ни при чем...

Type
  arrType = array[1 .. n, 1 .. n] of integer;
  pInt = ^Integer;

Function max(var arr: arrType): PInt;
var i, j, max_val: integer;
begin
  max_val := arr[1, 1]; max := @arr[1, 1];
  for i := 1 to n do
    for j := 1 to n do
      if arr[i, j] > max_val then begin
        max_val := arr[i, j];
        max := @arr[i, j]; { <--- Вот тут мы и берем адрес максимума }
      end;
end;

Анютка,
Все определения, которых не хватает - добавь сама... Основную программу тоже...

[Анютка]

volvo, большое спасибо!