составить блок-схему и программу решения задачи: Массив из 10 элементов заполнить целыми случайными числами в диапазоне от -20 до 20. Найти сумму положительных элементов массива.

# https://pastebin.com/V2MMpJeN

#

# A.

def function(digit): return str(digit).endswith('0') or str(digit).endswith("1")

print(f"A. function(1230) returns {function(1230)}")

# B.

def function(digit): return digit >= 0 and digit <= 2**8

print(f"B. function(751) returns {function(751)}")

# C.

def function(digit):

if digit < 2: return False

if digit == 2: return True

i=2

lim=int(digit**(1/2))

for n in range(i, lim + 1):

if digit % n == 0: return False

# конец двойной табуляции

return True

# конец табуляции

print(f"C. function(17) returns {function(17)}")

n=int(input("<-- enter digit: "))

print(f"C. function({n}) returns {function(n)}")

print("Число", n, "простое" if function(n) else "составное")

var a:String;

   i,sum:Integer;

begin

 writeln('Введите последовательность чисел:');

 readln(a);

 a := a.Replace(' ', '');

 writeln('Количество чисел:' + a.Length);

 for i := 1 to a.Length do

   sum := sum + strToInt(a[i]);

 writeln('Сумма: ' + sum);

end.

Объяснение:

В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.

Ввод:

1 2 3 4 5

Вывод:

Количество чисел: 5

Сумма: 15