Напишите программу, которая в последовательности натуральныхчисел определяет максимальное...

Question

Напишите программу, которая в последовательности натуральных
чисел определяет максимальное число, кратное 5. Программа
получает на вход количество чисел в последовательности, а затем сами
числа. В последовательности всегда имеется число, кратное 5.
Количество чисел не превышает 1000. Введённые числа не превышают
30 000.
Программа должна вывести одно число – максимальное число, кратное 5.
Без команды max

Answer 1

Var  i, n, max, number :integer;
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.