Алгоритм через паскаль Найти максимальное и минимальное значения из трех различных вещественных чисел.
Answers & Comments
Banished
Var i,x,y,max,min:real; begin readln(i,x,y); if i>x then max:=i else max:=x; if max<y then max:=y; if i<x then min:=i else min:=x; if min>y then min:=y; writeln('max=',max,'; min=',min); end.
Answers & Comments
begin
readln(i,x,y);
if i>x then max:=i else max:=x;
if max<y then max:=y;
if i<x then min:=i else min:=x;
if min>y then min:=y;
writeln('max=',max,'; min=',min);
end.