Цитата:
|
Сообщение от 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;
Есть ещё варианты?
Проблема решена путём передачи параметров по ссылке