Question

Напишите программу, которая определяет минимальное число из введённой последовательности положительных чисел (длинна последовательности не ограничена). Для завершения ввода нужно нажать 0. Помогите пожалуйста

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(ReadSeqIntegerWhile(x->x<>0).Min);
end.

Answer 2

Конечно, вот пример программы на Python, которая реализует данную задачу:

numbers = []  # Создаем пустой список для хранения введенных чисел

while True:
    num = float(input("Введите положительное число (для завершения введите 0): "))
    if num == 0:  # Если введен 0, выходим из цикла
        break
    elif num > 0:  # Если введено положительное число, добавляем его в список
        numbers.append(num)

if numbers:  # Проверяем, что список не пустой
    min_number = min(numbers)  # Находим минимальное число в списке
    print(f"Минимальное число: {min_number}")
else:
    print("Список пустой")

Эта программа предлагает пользователю вводить положительные числа до тех пор, пока не будет введен 0. Затем программа находит минимальное число введенных и выводит его на экран.