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

Question

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

Answer 1

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