Напишите программу, которая в последовательности натуральныхчисел определяет максимальное число, кратное 5. Программаполучает на вход количество чисел в последовательности, а затем самичисла. В последовательности всегда имеется число, кратное 5.Количество чисел не превышает 1000. Введённые числа не превышают30 000.Программа должна вывести одно число – максимальное число, кратное 5. Pascal
Напишите программу, которая в последовательности натуральныхчисел определяет максимальное число, кратное 5. Программаполучает на вход количество чисел в последовательности, а затем самичисла. В последовательности всегда имеется число, кратное 5.Количество чисел не превышает 1000. Введённые числа не превышают30 000.Программа должна вывести одно число – максимальное число, кратное 5. Pascal
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
program MaxNumberDivisibleBy5;
var
n, i, maxNum: integer;
begin
readln(n);
readln(maxNum);
maxNum := maxNum - (maxNum mod 5); // Находим наибольшее число, кратное 5
for i := 2 to n do
begin
readln(num);
if (num mod 5 = 0) and (num > maxNum) then
maxNum := num;
end;
writeln(maxNum);
end.