Задачи на списки в Python: 1. Дан массив размера N. Найти минимальный из его локальных максимумов
2. На обработку поступает последовательность из четырёх целых чисел. Нужно написать программу, которая выводит на экран количество неотрицательных чисел последовательности и их произведение. Если неотрицательных чисел нет, требуется вывести на экран «NO». Известно, что вводимые числа по абсолютной величине не превышают 10.
3. На обработку поступает последовательность из четырёх целых чисел. Нужно написать программу, которая выводит на экран сумму всех отрицательных чисел последовательности и максимальное число в последовательности.
Известно, что вводимые числа по абсолютной величине не превышают 1000.

Не подходит — 1) 2528, так как максимальное число разряда 9, то мы понимаем что максимальное возможное число любой поразрядной суммы трех чисел  27. 2528 если брать 25 и 28, то 28 больше 27 (про другой вариант и говорить не стоит — 2 и 528).
А номер 2) как раз подходит, например числа 90, 91, 90 получается 127 (27 — старшие разряды, 1 — младшие, записываем в порядке возрастания).
В общем результатом работы "автомата" могут быть все кроме 1) 2528. Ну конечно если я правильно понял условия. То что 2) не правильный в условии или как, с чего ты решил что это так?

//PascalABC.NET
var
    b : array of integer;
    m : integer;
begin
// Ввод данных
    var n := ReadInteger('Введите число N всех чисел массива: ');
    var k := ReadInteger('Введите число К "красивых" чисел: ');
    writeln('Введите все числа в массиве');
    var a := ReadArrInteger(n);
// Резервируем место для слагаемых
    b := new integer[k];
// Просмотрим все данные числа
    foreach var i in a do
// Выберем только кратные трем
        if i mod 3 = 0 then begin
// Если есть свободное место, поместим туда
            m := b.FindIndex(x -> x=0);
            if m <> -1 then b[m] := i
            else
// Если свободного места нет, найдем наибольший элемент
// и заменим его
                begin
                m := b.FindIndex(x -> (x>i) and (x=b.Max));
                if m <> -1 then b[m] := i;
            end;
        end;
// Выведем сумму
    write('Сумма элементов - ', b.Sum)
end.