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