ВТОРНИК, 16 Фев 2021 Программирование

Решить задачу: Даны три числа, вывести их в порядке возрастания. Используя условный оператор.​

Program DaNNuu;

uses crt;

const n=3;

var

 a:array [1..n] of integer;

 i,j,min,temp:integer;

begin

 randomize;

 {создание массива}

 writeln('Элементы массива:');

 for i:=1 to n do

   begin

     a[i]:=random(101)-50;

     write (a[i]:5);

   end;

 {сортировка массива}

 for i:=1 to n-1  do

   begin

     min:=i;

     for j:=i+1 to n do

       if a[min]>a[j] then

         min:=j;

     temp:=a[i];

     a[i]:=a[min];

     a[min]:=temp;

   end;

 writeln();

 {вывод массива}

 writeln('Результат сортировки:');

 for i:=1 to n do

   write(a[i]:5);

end.

Объяснение: