Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Создать подпрограмму 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;