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

Ответы на вопрос

a = int(input())
c = 0
for i in range(a):
b = int(input())
if b % 5 == 0 and b > c:
c = b
print(b)



Ответ:
PascalABC.NET:
- begin
- var a := ReadArrInteger(ReadInteger('Введите количество чисел:'));
- Println('Максимальное число, кратное 5:', a.Where(c->c mod 5 =0).Max);
- end.
Можно и в одну строчку, но тогда читабельность начинает страдать:
- begin
- Println('Максимальное число, кратное 5:', ReadArrInteger(ReadInteger('Введите количество чисел:')).Where(c -> c mod 5 = 0).Max);
- end.
Объяснение:
ReadArrInteger(n) /// Возвращает массив из n целых чисел, введённых с клавиатуры.
ReadInteger(s) /// Выводит s и возвращает целое число, введённое с клавиатуры.
Where(predicate) /// В нашем случае он возвращает только те элементы нашей последовательности, которые кратны 5.
Max /// Возвращает максимальное число последовательности.
Пример работоспособности программы:





Конечно, вот пример программы на языке Python, которая решает данную задачу:
pythondef main():
n = int(input("Введите количество чисел: "))
numbers = []
for _ in range(n):
num = int(input("Введите число: "))
numbers.append(num)
max_multiple_of_5 = -1
for num in numbers:
if num % 5 == 0 and num > max_multiple_of_5:
max_multiple_of_5 = num
print("Максимальное число, кратное 5:", max_multiple_of_5)
if __name__ == "__main__":
main()
Вы можете вставить этот код в свой редактор Python и запустить его. Программа будет запрашивать количество чисел в последовательности и сами числа. После ввода она определит и выведет максимальное число, кратное 5.


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili