Напиши программу Напишите функцию, которая вычисляет сразу максимальное и минимальное из трёх чисел. (Используйте изменяемые параметры.) Паскаль. Помогите пожалуйста! Очень нужно.
Ответ:
Объяснение:
function min(a,b,c:integer);
begin
if(a else if (b else min:=c; end; function max(a,b,c:integer): integer; begin if (a>b) and (a>c) then max:=a else if (b>a) and (b>c) then max:=b else max:=c; end; var a,b,c:integer; begin readln(a,b,c); writeln('Минимальное значение= ',min(a,b,c)); writeln('Максимальное значение= ',max(a,b,c)); end.
else min:=c;
end;
function max(a,b,c:integer): integer;
if (a>b) and (a>c) then max:=a
else if (b>a) and (b>c) then max:=b
else max:=c;
var a,b,c:integer;
readln(a,b,c);
writeln('Минимальное значение= ',min(a,b,c));
writeln('Максимальное значение= ',max(a,b,c));
end.