Question

Скажите что не так в 8-й строчке " нет перегруженной подпрограммы с таким количеством параметров max" var a, b, c, d, e, f: integer; function max (x, y: integer): integer; begin if x> y then max: =x else max: =y; end; begin readln (a, b, c, d, e); f: = max(max(a, b), max(c, d),e); writeln ('f=', f); end.

Answer 1

Надо записать
f:= max(max(max(a, b), max(c, d)),e);