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

Создать подпрограмму Minmax(A,B), записывающую в переменную A минимальное из значений A и B, а в переменную B - максимальное из этих значен Язык Pascal
Гость
Ответ(ы) на вопрос:
Гость
procedure Minmax(var a, b: integer); var min, max: integer; begin    if a < b then min := a else min := b;   if a > b then max := a else max := b;   a := min;   b := max; end;
Не нашли ответ?
Ответить на вопрос
Похожие вопросы