
15.2. Напишите программу, которая в последовательности натуральных чисел определяет среднее
значение между минимальным и максимальным для чисел кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода последовательности, и в последовательность не входит). Введённые числа не превышают 30 000. Программа должна вывести одно число: среднее значение между минимальным и максимальным для чисел кратных 5 или вывести NO, если таких чисел в последовательности нет.

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

На PASCAL:
program MinMaxAverage;
var
num, min, max, count, sum: integer;
hasMultipleOf5: boolean;
begin
min := 30001;
max := 0;
count := 0;
sum := 0;
hasMultipleOf5 := false;
repeat
readln(num);
if num > 0 then
begin
if (num mod 5 = 0) then
begin
hasMultipleOf5 := true;
if num < min then
min := num;
if num > max then
max := num;
sum := sum + num;
count := count + 1;
end;
end;
until num = 0;
if hasMultipleOf5 then
writeln(sum/count)
else
writeln('NO');
end.



Вот пример программы на языке Python, которая решает данную задачу:
pythonnumbers = [] # Список для хранения введенных чисел
while True:
num = int(input("Введите число (для завершения введите 0): "))
if num == 0:
break
numbers.append(num)
# Фильтрация чисел, кратных 5, из списка
filtered_numbers = [x for x in numbers if x % 5 == 0]
if len(filtered_numbers) == 0:
print("NO")
else:
min_num = min(filtered_numbers)
max_num = max(filtered_numbers)
average = (min_num + max_num) / 2
print("Среднее значение:", average)
Программа запрашивает у пользователя ввод чисел и сохраняет их в списке numbers
. Затем она фильтрует числа, кратные 5, и сохраняет их в списке filtered_numbers
. Если список filtered_numbers
пустой, программа выводит "NO". В противном случае, программа находит минимальное и максимальное значение в filtered_numbers
, вычисляет среднее значение между ними и выводит результат.


Топ вопросов за вчера в категории Информатика







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