2. разработать алгоритм и соответствующую блок-схему для определения суммы положительных элементов в одномерном массиве между первым и последним нечетными элементами массива включительно.

Задача 1 (скриншот 1)

------------------------------------------------------------------------------

import random

def gen_list(n):

for i in range(n):

 yield random.randint(-20, 35)

def summ_less(hight_border, array):

result = 0

for item in array:

 if item < hight_border:

  result += item  

return result  

def count_high(low_border, array):

result = 0

for item in array:

 if item > low_border:

  result += 1

return result

def main():

newlist = [int(i) for i in gen_list(15)]

print(summ_less(11, newlist))

print(count_high(25 ,newlist))

if __name__ == '__main__':

main()

------------------------------------------------------------------------------

Задача 2 (скриншот 2)

------------------------------------------------------------------------------

import random

def gen_list(n):

for i in range(n):

 yield random.randint(-10, 10)

def mulptiply_multiples(divider, array):

result = 1

for item in array:

 if item % divider == 0 and item != 0:

  result *= item

return result

def main():

newlist = [int(i) for i in gen_list(15)]

print(newlist)

print(mulptiply_multiples(3, newlist))

if __name__ == '__main__':

main()

------------------------------------------------------------------------------

Объяснение:

Cайт ломает Python-код, ниже приложены скриншоты исходников для восстановления кода. Если вам очень нужно именно скопировать и не париться, я могу залить обе задачи на pastebin.com и скинуть в комментарии к ответу ссылку

function Nod(a, b: integer): integer;

begin

 while b <> 0 do

 begin

   a := a mod b;

   Swap(a, b)

 end;

 Result := a

end;

procedure ArrIn(var a: array of integer) := a := ReadArrInteger(a.Length);

procedure ArrOut(a: array of integer) := a.Println;

function NodArr(a: array of integer): integer;

begin

 var n := a.Length;

 if n = 1 then

   Result := a[0]

 else

 begin

   Result := Nod(a[0], a[1]);

   for var i := 2 to n - 1 do

     Result := Nod(a[i], Result);

 end;

end;

begin

 var n := ReadInteger('Число элементов в массиве 1:');

 var a := new integer[n];

 Writeln('Введите элементы массива 1');

 ArrIn(a);

 Writeln('введены элементы:');

 ArrOut(a);

 Writeln('НОД элементов равен ', NodArr(a));

 n := ReadInteger('Число элементов в массиве 2:');

 SetLength(a, n);

 Writeln('Введите элементы массива 2');

 ArrIn(a);

 Writeln('введены элементы:');

 ArrOut(a);

 Writeln('НОД элементов равен ', NodArr(a));

 n := ReadInteger('Число элементов в массиве 3:');

 SetLength(a, n);

 Writeln('Введите элементы массива 3');

 ArrIn(a);

 Writeln('введены элементы:');

 ArrOut(a);

 Writeln('НОД элементов равен ', NodArr(a));

end.