Question

Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел

Answer 1

Предполагается, что будет введено минимум одно значение.

var

max,a : integer;

begin

readln(a);

max := a;

repeat

readln(a);

if (a > max) and (a <> 0) then

max := a;

until a = 0;

writeln(max);

readln;

end.

Answer 2

Конечно, вот пример программы на Python, которая позволяет вводить целые числа до тех пор, пока не будет введен ноль, и затем определяет максимальное из введенных чисел:

pythonCopy code
# Инициализируем переменную для хранения максимального числа
max_number = None

# Ввод чисел и поиск максимального
while True:
    try:
        num = int(input("Введите целое число (для завершения введите 0): "))
        if num == 0:
            break  # Выход из цикла при вводе 0
        if max_number is None or num > max_number:
            max_number = num
    except ValueError:
        print("Неверный формат числа. Попробуйте ещё раз.")

if max_number is not None:
    print(f"Наибольшее введенное число: {max_number}")
else:
    print("Вы не ввели ни одного числа, кроме нуля.")

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