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

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

Задать свой вопрос
1 ответ
Var
A,B,C,D,E,M:real;
Begin
WriteLn('Введите 5 чисел');
Read(A,B,C,D,E);
M:=A;
if Mlt;B then M:=B;
if Mlt;C then M:=C;
if Mlt;D then M:=D;
if Mlt;E then M:=E;

if Agt;B then A:=B;
if Agt;C then A:=C;
if Agt;D then A:=D;
if Agt;E then A:=E;

Write(A,' ',M)
End.
Виталий Швецков
Это подойдёт? Либо нужен массив и цикл?
Амина Выхватенко
Выходные данные должны быть 1 и 5,а у меня только 5
Максим Юсупов
Ну да, ещё малое вывести надобно - на данный момент исправлю
Сергей
Огромное спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт