// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Max)
end.
Пример
36 102 52 19 212 42 97 72 64 0
212
Задание 3. В очень странной постановке. Вводятся НАТУРАЛЬНЫЕ числа и надо найти сумму ПОЛОЖИТЕЛЬНЫХ. Но ведь ВСЕ натуральные числа положительные...
На всякий случай условие фильтрации положительных поставим. Если не надо - из текста программы надо исключить .Where(x->x>0)
begin
Writeln(ReadSeqInteger(ReadInteger).Where(x->x>0).Sum)
end.
Пример
10
36 102 52 19 212 42 97 72 64 10
706