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

Язык Pascal

Question

Информатика

Феодула

3 сентября, 19:03

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

Язык Pascal

+5

Ответы (1)

Знаете ответ?

Петра · 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;

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

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

Язык Pascal