Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход коли-чество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, кратное 5.Нужна рабочая программа ,чтобы можно было проверить.
Ответы
Ответ дал:
1
a = int(input())
c = 0
for i in range(a):
b = int(input())
if b % 5 == 0 and b > c:
c = b
print(b)
mistermen009:
сейчас проверю
Ответ дал:
0
Ответ:
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 /// Возвращает максимальное число последовательности.
Пример работоспособности программы:
Приложения:
![](https://st.uroker.com/files/a2b/a2bf9c50982da667a87c1f3c2eef6180.jpg)
![](https://st.uroker.com/files/16f/16f2b0de2a1fdabe655e7332cbbbf634.jpg)
Вас заинтересует
1 год назад
1 год назад
1 год назад