Складіть блок-схему алгоритму обчислення суми натуральних чисел, які не перевищують заданого додатного числа 8. Виконайте складений алгоритм для трьох різних значень а.

from random import randint

lst = []

# список з 10-тьма випадковими числами вiд -10 до 10

for i in range(10):

   lst.append(randint(-10, 10))

doubled_lst = [a*2 for a in lst]  # подвоюэм список та записуэм в змiнну doubled_lst

more_then_zero_in_doubled_lst = [a for a in doubled_lst if a > 0]

less_then_zero_in_doubled_lst = [a for a in doubled_lst if a < 0]

more_then_zero_in_simple_lst = [a for a in lst if a > 0]

less_then_zero_in_simple_lst = [a for a in lst if a < 0]

# виводим сумму/кiлькiсть/середнє арифметичне для НЕ подвоэного списку бiльших за 0

print("Сумма/кiлькiсть/середнє арифметичне для НЕ подвоэного, бiльшого за 0 ")

print(sum(more_then_zero_in_simple_lst))

print(len(more_then_zero_in_simple_lst))

print(sum(more_then_zero_in_simple_lst) / len(more_then_zero_in_simple_lst))

# виводим сумму/кiлькiсть/середнє арифметичне для НЕ подвоэного списку менших за 0

print("Сумма/кiлькiсть/середнє арифметичне для НЕ подвоэного, меншого за 0 ")

print(sum(less_then_zero_in_simple_lst))

print(len(less_then_zero_in_simple_lst))

print(sum(less_then_zero_in_simple_lst) / len(less_then_zero_in_simple_lst))

# виводим сумму/кiлькiсть/середнє арифметичне для подвоэного списку бiльших за 0

print("Сумма/кiлькiсть/середнє арифметичне для подвоэного, бiльшого за 0 ")

print(sum(more_then_zero_in_doubled_lst))

print(len(more_then_zero_in_doubled_lst))

print(sum(more_then_zero_in_doubled_lst) / len(more_then_zero_in_doubled_lst))

# виводим сумму/кiлькiсть/середнє арифметичне для подвоэного списку менших за 0

print("Сумма/кiлькiсть/середнє арифметичне для подвоэного, меншого за 0 ")

print(sum(less_then_zero_in_doubled_lst))

print(len(less_then_zero_in_doubled_lst))

print(sum(less_then_zero_in_doubled_lst) / len(less_then_zero_in_doubled_lst))

Полный код программы

var
    k, rk, n: longint;

function f(n: longint): longint;
begin
    f := n * n * n;
end;

function calc(k: longint): longint;
var
    i: longint;
begin
    i := 1;
    while f(i) < k do
        i := i + 1;
   
    if f(i) - k <= k - f(i - 1) then
        calc := i
    else calc := i - 1;
end;

begin
    rk := calc(10);
    n := 0;
    for k := 1 to 1000 do
        if calc(k) = rk then
        begin
            writeln('calc(', k, ') = ', calc(k));
            n := n + 1;
        end;
   
    writeln(n);
end.

вывод
calc(5) = 2
calc(6) = 2
calc(7) = 2
calc(8) = 2
calc(9) = 2
calc(10) = 2
calc(11) = 2
calc(12) = 2
calc(13) = 2
calc(14) = 2
calc(15) = 2
calc(16) = 2
calc(17) = 2
13