Напишите программу, которая выбирает максимальное и минимальное из пяти введённых...

Question

Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.(Паскаль АВС)

Answer 1

Var
A,B,C,D,E,M:real;
Begin
WriteLn('Введите 5 чисел');
Read(A,B,C,D,E);
M:=A;
if Mif Mif Mif M
if A>B then A:=B;
if A>C then A:=C;
if A>D then A:=D;
if A>E then A:=E;

Write(A,' ',M)
End.

Comments

Это подойдёт? Или нужен массив и цикл?

---

Выходные данные должны быть 1 и 5,а у меня только 5

---

Ну да, ещё минимальное вывести надо - сейчас исправлю

---

Большое спасибо