Комиссионные 1 и Комиссионные 2, формула надо

program t1;

var 

  i, j: integer;

  mas: array [1..10] of integer;

begin

    randomize;

    writeln ('сгенерированный масив: ');

    for i := 1 to 10 do 

    begin

      mas[i] := random (100) - 50;

      write (mas[i]);

    end;

    begin

    for j:=1 to 9 do

      for i:=1 to 9-j do

         if M[i] < M[i+1] then

              swap(mas[i],mas[i+1])

    end;

    writeln 

    for i := 1 to 10 do write (mas[i]);

end;

end. program z1;

  uses crt;

  var i, n:integer;

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

begin

  clrscr;

  randomize;

  write(' размер =' );readln(n);

  for i:=1 to n do

    begin

      a[i]:=random(46))+1;

      write(a[i], ' ' );

    end;

  for i:=n downto 1 do

    write(a[i],' ');

  readkey;

end.

program z2;

  uses crt;

  var i, n, r: integer;

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

begin

  clrscr;

  randomize;

  write 

  readln(n);

  for i:=1 to n do 

    begin

      a[i]:=random(45)-22;

      write(a[i],' ');

    end;

  i:=1;

  while i<=n-1 do 

    begin

      r:=a[i];a[i]:=a[i+1];a[i+1]:=r;

      inc(i,2);

    end;

  for i:=1 to n do

    write(a[i],' ');

  readkey;

end.

Задача 3.

program z3;

  uses crt;

  var i,n,r,max,min,imax,imin:integer;

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

begin

  clrscr;

  randomize;

  write('число элементов n= ');

  readln(n);

  for i:=1 to n do 

    begin

      a[i]:=random(45)-22;

      write(a[i],' ');

    end;

  min:=a[1]; max:=a[1];

  for i:=1 to n do 

    begin

      if a[i]<=min then 

        begin

          min:=a[i]; imin:=i; 

        end;

          max:=a[i]; imax:=i; 

        end;

    end;

  readkey;

end.

program z4;

  const N=10;

  type Mas=fray [1..N] of integer;

  var a: Mas; 

      i: integer; 

      S:integer;

begin

  randomize; 

  for i:=l to N do

    begin

      a[i]:=-100+random(201);

      write(a[i]:5)

    end; 

  writeln;

  S:=0;

    if A[i]>0 then 

      S:=S+A[i];

  writel

  readln 

end.

program z5;

  uses crt;

  var i,k,,r:integer;

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

begin

  clrscr;

  randomize;

  write(' число элемен. п=');readln(n);

  for i:=1 to n do 

    begin

      a[i]:=random(45)-22;

      write(a[i], ' ');

{Проверяем на четность и считаем количество четных элементов.}

      if a[i] mod 2=0 then inc(k, 1);

    end;

  write('k= ',k);

  readkey

end.

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(ReadInteger('Длина вектора А='),-50,50); a.Println;
  var b:=ArrRandomReal(ReadInteger('Длина вектора B='),-50,50); b.Println;
  var c:=(a.Where(x->x>0).Count)>(b.Where(x->x>0).Count);
  Writeln(c)
end.

Пример
Длина вектора А= 5
11.2705506669686 48.3210324301948 42.773549674439 43.1555606858598 -18.5803525469174
Длина вектора B= 6
15.3481486557741 -19.0451312200376 -19.2453642232555 -11.3293506025008 48.204669308944 32.6231040445264
True