
Вот задача:
Найти в двумерном массиве максимальное число и вернуть из подпрограммы-процедуры поиска указатель на это значение.
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;
Анютка,