Задача 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.