Вфайле in.txt записаны 10 чисел. найти сумму чисел, которые не меньше 5. результат записать в файл out.txt.

ВЛАД98878 ВЛАД98878    2   13.09.2019 02:50    0

Ответы
WaRRiOPRO WaRRiOPRO  07.10.2020 10:57
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  WriteAllText('out.txt',
      ReadAllText('in.txt').ToIntegers.Take(10).Where(t->t>=5).Sum.ToString)
end.

Примечание: если чисел гарантировано 10, то .Take(10) можно убрать
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика