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

Question

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

Comments

Проблемы с русским языком?

---

А задача эта тут уже решалась. Многократно.

---

Там 2 числа, а у меня 3, и всё равно не пойму, как на 3 сделать:\

---

именно с тремя решалась

---

не вижу(

Answer 1

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.