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

Question

Информатика

Алексана

17 мая, 21:14

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

+4

Ответы (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.