Python1) Заполните список (массив) 10 случайными числами в диапазоне от -50 до 50. Найдите средние арифметические положительных и отрицательных элементов списка. 2) Дан список, состоящий из 15 случайных чисел в диапазоне от -10 до 10. Определить количество элементов, больших суммы всех элементов списка, и напечатать их номера.3) Дан список, состоящий из 15 случайных чисел в диапазоне от 0 до 100. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального элемента списка, и напечатать их номера.​

Перевод числа Х из 10-тичной системы в n-ичную осуществляется путем деления с остатком числа Х на n, затем Х1 = Х/n на n и тд (до тех пор, пока Хi больше 0) и записыванием остатков деления в обратном порядке. В нашем случае:
Х = 10, n = 2, % - операция получения остатка от деления, / - операция получения целой части от деления.
1) 10 % 2 = 0; 10 / 2 = 5
2) 5 % 2 = 1; 5 / 2 = 2
3) 2 % 2 = 0; 2 / 2 = 1
4) 1 % 2 = 1; 1 / 2 = 0 => конец. Выпишем остатки в обратном порядке (т.е. из шагов 4), 3), 2) и 1)):
10 (в 10-ной) = 1010 (в 2-ной)
Проверка:
1010 (в 2-ной) = 1*2^3 + 0*2^2 + 1*2^2 + 0*2^0 = 8 + 0 + 2 + 0 = 10 (в 10-ной)

Var
  i,j,p:integer;
  a:array[1..20]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(20);
  write(a[i],' ');
  end;
writeln;
i:=1;
while i<21 do
  begin
  j:=i;
  while j<21 do
    begin
    if a[i]<a[j] then
      begin
      p:=a[i];
      a[i]:=a[j];
      a[j]:=p;
      end;
    j:=j+2;
    end;
  i:=i+2;
  end;
i:=2;
while i<21 do
  begin
  j:=i;
  while j<21 do
    begin
    if a[i]>a[j] then
      begin
      p:=a[i];
      a[i]:=a[j];
      a[j]:=p;
      end;
    j:=j+2;
    end;
  i:=i+2;
  end;
writeln('Измененный массив:');
for i:=1 to 20 do write(a[i],' ')
end.