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

Question

Информатика

Завийа

11 марта, 16:59

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

+3

Ответы (1)

Знаете ответ на вопрос?

Суффа · Answer 1

Var

n, a, i, max: longint;

begin

readln (n) ;

max : = - 30001;

for i : = 1 to n do begin

read (a) ;

if (a > max) and (a mod 10 = 0) then

max : = a;

end;

writeln (max) ;

end.