Напишите программу ввести одномерный массив a из 11 элементов. определить в нём сумму элементов, значения которых лежат вне диапазона [−1; 5].

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var b:=ReadArrInteger('->',11);
  Writeln('S=',b.Where(x->(x<-1) or (x>5)).Sum)
end.

Пусть исходное число будет abc, где a - первая цифра, b - вторая, c - третья.

b,c - цифры => они принимают целые значения от 0 до 9. Так как число трехзначное, то a не может быть равно 0 => a принимает целые значения от 1 до 9.

Произведение двух цифр не превосходит 9*9=81.

Ищем произведения цифр в числе 123:

1 и 23 - неверно(1=1*1, но 23=1*c=> c=23>9)

12 и 3 - верно(1*3 и 3*4,  записаны в порядке убывания)

Нам нужно найти наименьшее число, значит значения a и b как первых цифр числа должны быть минимальны.

По условию:

a*b=3

b*c=12

Подбираем значения a,b и c:

a=1; b=3; c=12/3=4 - верно, число 134

a=3; b=1; c=12/1=12 - неверно

В итоге, получили, что число 134 - минимальное.

ответ: 134

")

   a.append(k)

l = 0

for i in range(len(a)):

   if a[i]>=3:

       l = l+1

       a[i] = a[i]-3

       if l == three:

           break

print(l,"тройки")

print(a)

j = 0

for i in range(len(a)):

   if a[i]>=2:

       j = j+1

       a[i] = a[i]-2

       if j == two:

           break

print(j,"двойки")

print(a)

m = 0

for i in range(len(a)):

   if a[i]>=1:

       m = m+1

       a[i] = a[i] - 1

       if m == one:

           break

print(m,"одиночки")

print(a)

if l>=three and j>=two and m>=one:

   print("YES")

else:

   print("NO")

Объяснение:

надеюсь в коде разберешься )

написано в питоне