Здравствуйте! Прошу помощи в следующем вопросе:
Начала делать данное задание через массивы и совсем запуталась. Тут явно все банально. Помогите пожалуйста.
[code lang=pascal]var x,y:integer;
function max(x,y:integer):integer;
function min(x,y:integer):integer;
begin
readln(x);
if(x<=0) and (x>=0) then y:=max(x,y) else y:=min(x,y);
begin
if x<=y then min:=x else min:=min(y,x)
end;
begin
if x>=y then max:=x else max:=max(y,x)
end;
writeln('y=:',min,max);
end. [/code]