Question

Напишите программы на pascalabc.net
№2:
напишите программу, которая в последовательности натуральных чисел определяет минимальное значение четных чисел, которые больше 100. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 200. введённые числа не превышают 300. программа должна вывести одно число: минимальное из четных чисел, которые больше 100.
например: 23 108 121 148 34 0 ==> 108

Answer 1

begin

 ReadSeqIntegerWhile(p -> p <> 0)

   .Where(p -> p.IsEven and (p > 100))

   .Min

   .Println

end.