Question

Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена). Ниже представлен рекомендуемый вид экрана во время работы программы: *Определение максимального числа последовательности положительных чисел* Вводите после стрелки числа. Для завершения введите ноль

Answer 1

Turbo Pascal:
Program readInteger;
Uses CRT;
Var s:char; z:Integer;
Begin
ClrScr;
WriteLn('Введите числа:');
repeat
If (KeyPressed = true) than
begin
S:=ReadKey
z:=z+1;
End;
Until s ="0";
Write('Вы ввели ',z,' чисел!');
ReadLn;
End.

Answer 2

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

# Инициализация переменных
max_number = float('-inf')  # начальное значение для максимального числа

# Ввод чисел с клавиатуры
print("Определение максимального числа последовательности положительных чисел.")
print("Введите числа. Для завершения введите 0.")

while True:
    try:
        number = float(input("Введите число: "))
    except ValueError:
        print("Ошибка ввода. Пожалуйста, введите корректное число.")
        continue

# Проверка на завершение ввода
    if number == 0:
        break

# Проверка на положительное число
    if number > 0:
        # Обновление максимального числа, если текущее число больше
        max_number = max(max_number, number)
    else:
        print("Пожалуйста, вводите только положительные числа.")

# Вывод результата
if max_number > float('-inf'):
    print(f"Максимальное число в последовательности: {max_number}")
else:
    print("Вы не ввели положительных чисел.")

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