Question

Помогите срочно с 1 и 3.
Очень срочно!!!!!!

Answer 1

// 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