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

n - количество чисел

i - цикловая переменная

a - натуральное число,

кратное 5

Язык програмирования:

Паскаль

var

n,i,a,max: integer;

begin

readIn(n);

max := -1;

for i := 1 to n do

begin

readIn(a);

If (a mod 5 = 0) and (a > max)

then

max := a;

end;

writeIn(max)

end.

Программа на Кумире прилагается.