18.07 Последовательность чисел

Решение 1 (Excel):
В ячейку скопируем значение ячейки .
В ячейку запишем формулу =ЕСЛИ(ЕСЛИ(ABS(A2-A1)>=20;B1+A2;A2)>=0;ЕСЛИ(ABS(A2-A1)>=20;B1+A2;A2);0)

Скопируем на весь стобей .
Найдём максимум из полученных значений с помощью формулы =МАКС

Полученное значение запишем в ответ.

Решение 2 (прогой):
Откроем файл в Excel. Выделим все числа и скопируем их в текстовый документ.

Теперь напишем программу для решения задачи:

f = open(’18.txt’)
elem = f.readlines()
a = []
n = 99
for i in range(n):
    t = elem[i][:-1]
    a += [int(t)]
ans = -10 ** 20
for i in range(n):
    s = a[i]
    if s > ans:
        ans = s
    for j in range(i + 1, n):
        if abs(a[j] - a[j - 1]) >= 20:
            s += a[j]
            if s > ans:
                ans = s
        else:
            break
print(ans)