[Luckduck]

Сообщение от M.A.D.M.A.N.

Во 1-х ни одна из ф-й не возвращает результат.

Добавил в код результат, не помогло

Код:

function max1 (j:integer; p:real; w:array of real) : real;
begin
p:=-999999;
for j:=1 to 3 do
begin
if w[j]>p then
p:=w[j];
end;
result:=p;
end;

Есть ещё варианты?

Проблема решена путём передачи параметров по ссылке