Найти произведение всех элементов массива целых чисел меньших 0 размер массива равен-10

Program n1; uses crt; var  a: array[1..10] of integer;   s,i: integer; begin for i: =1 to 10 do   begin a[i]: =random(11)-5; writeln(a[i]: 4); end;             s: =1; for i: =1 to 10 do if (a[i]< 0) then s: =s*a[i]; writeln('proizvedenie vseh otricat chisel: ', s); end.

Программа на python 3, перебирающая все возможные последовательности определённой длины: def shortest_chains(n):   def next_chains(chain):     new_elems = set()     for i in range(len(chain)):       for j in range(i, len(chain)):         new_elem = chain[i] + chain[j]         if new_elem > chain[-1] and new_elem not in new_elems:           new_elems.add(new_elem)           yield chain + [new_elem]       current_stage = none   next_stage = [[1]]   answer = []   while len(answer) == 0:     current_stage = next_stage     next_stage = []     for chain in current_stage:       next_stage.extend(next_chains(chain))     answer = [chain[1: ] for chain in next_stage if chain[-1] == n]   return answer       def print_solution(n):   answer = shortest_chains(n)   print("для {} есть {} решений(-я, -е): ".format(n, len(   for i in range(len(answer)):     print("{}. {}".format(i + 1, " ".join(map(str,   print() запустив, можно получить все 5 возможных решений для числа 7, по 4 решения для 15 и 23 и 87 решений для 63.

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('вводите элементы матрицы построчно');   var a: =new real[n,m];   var b: =new real[n];   for var i: =0 to n-1 do begin       b[i]: =0;       for var j: =0 to m-1 do begin           read(a[i,j]);           b[i]+=sqr(a[i,j])           end;       b[i]: =sqrt(b[i])       end;   writeln('сформированный вектор');   b.println; end. пример количество строк в матрице: 4 количество столбцов в матрице: 3 вводите элементы матрицы построчно 3.4 5.1 8 -1 0 1 -5.34 1.777 5 3 4 5 сформированный вектор 10.0781942827076 1.4142135623731 7.52816903370268 7.07106781186548