50 баллов ПОМОГИТЕ ПОЖАЛУЙСТА Язык PascalABC 1. Напишите программу, которая в...

Question

50 баллов ПОМОГИТЕ ПОЖАЛУЙСТА Язык PascalABC 1. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 1. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 5000. Избранные числа всегда есть. Программа должна вывести одно число. 2. Напишите программу, которая в последовательности целых чисел находит минимальное трехзначное число. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0. (0-признак окончания ввода, не входит в последовательность). Избранные числа всегда есть. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 12 000.

Answer 1

// PascalABC.NET

begin

 ReadSeqInteger(ReadInteger)

     .Where(p -> p mod 10 = 1)

     .Max

     .Println;  // 1

 ReadSeqIntegerWhile(p -> p <> 0)

     .Where(p -> Abs(p) in 100..999)

     .Min

     .Print // 2

end.