Программа в pascal

Question

Программа в pascal

Иван Гардеев Ученик (115), на голосовании 5 месяцев назад

Напишите программу, которая в последовательности n натуральных чисел определяет минимальное число, большее 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности обязательно есть число большее 8. Программа должна вывести одно минимальное число, больше 8. Программа должна использовать цикл for. написанная так как будто вы 8-миклассник

Answer 1

program MinNumberGreaterThan8;

var
n, number, minNumber: integer;

begin
minNumber := 10000;

writeln('Введите количество чисел в последовательности: ');
readln(n);

writeln('Введите числа последовательности: ');
for var i := 1 to n do
begin
readln(number);
if (number > 8) and (number < minNumber) then
minNumber := number;
end;

writeln('Минимальное число, большее 8: ', minNumber);
end.

Answer 2

Answer 3

 # Функция для получения минимального числа больше 8 
def find_min_greater_than_eight(n, numbers): 
    # Инициализируем переменную для хранения минимального числа больше 8 
    min_greater_than_eight = float('inf') 
     
    # Перебираем все числа в последовательности 
    for num in numbers: 
        # Проверяем, если число больше 8 и меньше текущего минимума 
        if num > 8 and num < min_greater_than_eight: 
            min_greater_than_eight = num 
     
    # Возвращаем найденное минимальное число больше 8 
    return min_greater_than_eight 
 
# Ввод количества чисел в последовательности 
n = int(input("Введите количество чисел в последовательности: ")) 
 
# Ввод самих чисел 
numbers = [] 
for _ in range(n): 
    number = int(input()) 
    numbers.append(number) 
 
# Вызываем функцию и выводим результат 
result = find_min_greater_than_eight(n, numbers) 
print("Минимальное число, большее 8:", result)