1) такое составной оператор? в каких случаях составной оператор используется в операторе ветвления? 2) составьте программу сортировки по возрастанию значений трех переменных: а б с в системе паскаль

Составной оператор - это команда позволяющая выполнить ряд команд вместо одной после then или else. program vosrastanie; var a, b, c, y : real; begin     writeln('');     readln(a,b,c);     y: =a;     if y > b then                  else y: =b;     if y> c then                  else y: =c;     writeln(y) end.

1)       var  a: array[1..10]of integer;   i,n,k: integer;   begin    readln(n);       for i: =1 to 10 do        begin          read(a[i]);           if a[i]< 0 then          a[i]: =n;         end;         for i: =1 to 10 do          write(a[i],' ');         end.2)var  a: array[1..999999]of integer;   i,n,s: integer;     begin        readln(n);         for i: =1 to n do          begin            a[i]: =random(36)-15;             write(a[i],' ');           end;           writeln;           for i: =1 to n do            if abs(a[i])> 10 then            write(a[i],' ');         end.3)         var  a: array[1..999999]of integer;   i,n,s: integer;     begin        readln(n);         for i: =1 to n do          begin            a[i]: =random(36)-15;             write(a[i],' ');           end;           writeln;           for i: =1 to n do            begin              if i mod 3 = 0 then                if a[i]< 0 then                a[i]: = a[i]*a[i]*a[i];               write(a[i],' ');               end;           end.