Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Алгоритм через паскаль
Найти максимальное и минимальное значения из трех различных вещественных чисел.

Ответ оставил Гость

Var i,x,y,max,min:real;
begin
 readln(i,x,y);
 if i>x then max:=i else max:=x;
 if max if i if min>y then min:=y;
 writeln(max=,max,; min=,min);
end.