PascalABC.NET:
beginvar a := ReadArrInteger(ReadInteger('Введите количество чисел:')); Println('Максимальное число, кратное 5:', a.Where(c->c mod 5 =0).Max);end.Можно и в одну строчку, но тогда читабельность начинает страдать:
begin Println('Максимальное число, кратное 5:', ReadArrInteger(ReadInteger('Введите количество чисел:')).Where(c -> c mod 5 = 0).Max); end.Объяснение:ReadArrInteger(n) /// Возвращает массив из n целых чисел, введённых с клавиатуры.
ReadInteger(s) /// Выводит s и возвращает целое число, введённое с клавиатуры.
Where(predicate) /// В нашем случае он возвращает только те элементы нашей последовательности, которые кратны 5.
Max /// Возвращает максимальное число последовательности.
Пример работо программы:
В 1945—47 годах у Винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, управления и контроля. Для этой науки Винер предложил название кибернетика, получившее общее признание. Норберту Винеру принадлежит, несомненно, первое место в пропаганде значения кибернетики во всей системе человеческих знаний.