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

program srednball;

var a,b,d : integer;

        c : real;

begin

    writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');

    readln (d);

    readln (a);

    readln (b);

    c: =(a+b+d)/3;

    writeln (' srednii ball= ', c: 4: 2);

    readln;

end.

информатика - наука о способах получения, накопления, хранения, преобразования, передачи, защиты и использования информации.

 

информация - сведения о чем-либо, независимо от формы их представления.

 

информационные технологии -  широкий класс дисциплин и областей деятельности, относящихся к технологиям создания, и обработки данных, в том числе с применением вычислительной техники