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

import random

N = [random.randint(0, 100) for i in range(10)]

print ("Array is:", N)

sum_less_50 = 0

Count_less_50 = 0

sum_more_50 = 0

Count_more_50 = 0

for elem in N:

   if elem >= 50:

       Count_more_50 += 1

       sum_more_50 += elem

   else:

       Count_less_50 += 1

       sum_less_50 += elem

print("Awerage of nums, that < 50: ", end = "")

if Count_less_50 > 0:

   print(sum_less_50 / Count_less_50)

else:

   print(0)

print("Awerage of nums, that >= 50: ", end= "")

if Count_more_50 > 0:

   print(sum_more_50 / Count_more_50)

else:

   print(0)

1.

program z1;

var a,b:integer;

begin

write('Введите 2 двузначных числа: ');

readln (a,b);

write('Произведение цифр числа ',a,' и числа ',b,' равно ',(a div 10) * (a mod 10) * (b div 10) * (b mod 10))

end.

2.

program z2;

var a,b:integer;

begin

write('Введите 2 числа: ');

readln (a,b);

writeln(a,'% от ',b,' равно ',b*a/100);

write(b,'% от ',a,' равно ',a*b/100)

end.

Объяснение:

Если во второй задаче надо найти какой процент составляет число а от числа b и какой процент составляет число b от а, то меняем строчки

writeln(a,'% от ',b,' равно ',b*a/100);

write(b,'% от ',a,' равно ',a*b/100)

на

writeln('Число ',a,' от числа ',b,' составляет ',a/b*100,'%');

write('Число ',b,' от числа ',a,' составляет ',b/a*100,'%')