Информатика, опубликованно 08.03.2018 13:40

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

Ответы
Ответ оставил: dodmitry
// 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

Другие вопросы по информатике
Вопросов на сайте: 1379168