1. в одномерном массиве произвольных чисел а(10) положительные элементы уменьшить в двое, а отрицательные элементы заменить на значения их индексов

Const   n = 10; var   a: array[1..n] of integer;   i: integer; begin   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       a[i] : = random(51) - 25;       write(a[i]: 4);   end;   writeln;   writeln('результирующий массив');   for i : = 1 to n do   begin       if a[i] > 0 then a[i] : = a[i] div 2 else a[i] : = i;       write(a[i]: 4);   end;   writeln; end. тестовое решение: исходный массив     5 -19 -24 -21  -4  14 -18 -21    2 -14 результирующий массив     2    2    3    4    5    7    7    8    1  10

x=[15,1,0,255,12,38,154,36,794,2,54,-69]   #массив

z=[]   #пустой массив

#запоминаем первый элемент из массива x как минимальный и максимальный

minc=x[0]

minind=0

maxc=x[0]

maxind=0

k=-1   #переменная-счетчик

for i in range(len(x)):   #цикл

    if i%2==0:

        k+=1

        z.append(x[i])   #добавляем элемент z[i], если i - четный

        print(z)

# проверка на минимум и максимум

        if x[i]> maxc:

            maxc,maxind=x[i],k

        if x[i]< minc:

            minc,minind=x[i],k

    print(minind,maxind,k)

z[minind]=maxc

z[maxind]=minc

print(z)

#python v3.6.2

# dec - десятичное число, n - разрядность числа, по умолчанию - 32 (как у типа integer)

def dec_to_bin(dec, n=32):

if dec > 0:

  b = ''

  while dec > 0:

      i = str(dec % 2)

      b = i + b

      dec = int(dec / 2)

  return b

if dec < 0:

  dec = -dec

  b = ''

  while dec > 0:

      i = str(dec % 2)

      b = i + b

      dec = int(dec / 2)

  # прямой код

  b = '0'*(n-len(b))+b

  # обратный код

  b = b.replace('1', '2').replace('0', '1').replace('2', '0')

  # дополнительный код

  b = b[0: b.rfind('0')]+'1'+'0'*(len(b[b.rfind('0'): len(b)])-1)

  return b

if dec == 0:

  return 0