Сделать подпрограмму Minmax(A,B), записывающую в переменную A малое из значений A

Сделать подпрограмму Minmax(A,B), записывающую в переменную A малое из значений A и B, а в переменную B - наибольшее из этих значен
Язык Pascal

Задать свой вопрос
1 ответ
procedure Minmax(var a, b: integer);
var min, max: integer;
begin 
  if a lt; b then min := a else min := b;
  if a gt; b then max := a else max := b;
  a := min;
  b := max;
end;

Мавронуло Елизавета
спасибо,но не выводит итог,что делать?
Завальская Лилия
Это же подпрограмма. После нее запишите следующие:
Арсений Бодяков
beginread(a, b);writeln(a, ' ', b);
Василий
end.
Арина Дэбановская
Прошу помилования
Михаил Бану
beginread(a, b);minmax(a, b);writeln(a, ' ', b);end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт