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

Question

Информатика

Федуня

6 января, 09:01

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

+1

Ответы (1)

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

Фросюшка · Answer 1

Program kratnoe;

var N, i, a, max: integer;

begin

writeln ('Введите количество чисел:') ; Readln (N) ;

max:=0;

For i:=1 to N do

begin

write ('Введите число:') ; readln (a) ;

if a mod 5 = 0 then

if a>max then max:=a;

end;

writeln ('ответ:', max) ;

end.