Question

Напиши программу Напишите функцию, которая вычисляет сразу максимальное и минимальное из трёх чисел. (Используйте изменяемые параметры.) Паскаль.

Помогите пожалуйста! Очень нужно.

Answer 1

Ответ:

Объяснение:

function min(a,b,c:integer);

begin

if(a<b) and (a<c) then min:=a

else if (b<a0 and (b<c) then min:=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.