Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 5. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число – максимальное число, кратное 5. без команды max
begin
readln(n); max:= 5; for i:= 1 to n do begin readln(number); if (number mod 5 = 0) and (number > max) then max:= number; end; writeln(number);
end.