Question

Даны три числа. А, В, С. Целые, положительные. Вводятся пользователем, произвольно. Найти максимум и минимум. Вывести максимум и минимум.

Answer 1

var a,b,c,min,max:integer;
begin
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
max:=a;
if b>max then max:=b;
if c>max then max:=c;
writeln('min=',min);
writeln('max=',max);
end.