С помощью Паскаля: 1.Заполните массив случайными числами в интервале [0;100] и подсчитайте отдельно среднее значение всех элементов,которые меньше 50, и среднее значение всех элементов,которые больше или равны 50.2.Заполнить массив случайными числами в интервале [0;5]. Определить, есть ли в нем элементы с одинаковыми значениями,стоящие рядом.3. Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и во второй половине.

1. var a1, a2, b1, b2, c, i, n :integer;
         s:array [1..10000] of integer;
begin
   read (n);
   for i:=1 to n do
   begin
      s[i]:=random(100);
      if s[i]
      begin
         a1:=a1+s[i];
         a2:=a2+1;
      end;
      if s[i]>=50 then
      begin
         b1:=b1+s[i];
         b2:=b2+1;
      end;
   writeln (a1/a2:0:3, , b1/b2:0:3);
end.

2. var a1, a2, b1, b2, c, i, n, j :integer;
         s:array [1..10000] of integer;
begin
   read (n);
   for i:=1 to n do
      s[i]:=random(5);
   for i:=1 to n do
   for i:=1 to n do
      for j:=1 to n do
         if (s[i]=s[j]) and (abs(i-j)=1) then inc(c);
   if c>=1 then writeln (Есть) else writeln (Нет);
end.

3.    var a1, a2, b1, b2, c, i, n :integer;
         s:array [1..10000] of integer;
begin
   read (n);
   for i:=1 to n do
      s[i]:=random(127998)-63999;
   a1:=n div 2;
   for i:=1 to a1 div 2 do
   begin
      a2:=s[i];
      s[i]:=s[a1 + 1 - i];
      s[a1  + 1 - i]:=a2;
   end;
   for i:=a1+1 to a1+a1 div 2 do
   begin
      a2:=s[i];
      s[i]:=s[n + 1 - i + a1];
      s[n + 1 - i + a1]:=a2;
   end;
   for i:=1 to n do
      write (s[i], );
end.