Дан массив из 10 целых чисел в диапазоне [-10000,10000]. Определите максимальный элемент, кратный 5. Если таких элементов нет, выведите "-1".
Числа вводятся с клавиатуры. Программу выполнить в ПАСКАЛЬ.АВС
Числа вводятся с клавиатуры. Программу выполнить в ПАСКАЛЬ.АВС
More Questions From This User See All
Answers & Comments
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadSeqInteger(10).Where(t->(t mod 5=0)).ToArray;
if a.Count=0 then Writeln(-1) else Writeln(a.Max)
end.