Question

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

Answer 1

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;

Answer 2

Это же подпрограмма. После нее запишите следующие:

Answer 3

begin
read(a, b);
writeln(a, ' ', b);

Answer 4

end.

Answer 5

Прошу прощения

Answer 6

begin
read(a, b);
minmax(a, b);
writeln(a, ' ', b);
end.