Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности чисел. Ниже представлен вид экрана во время работы программы: Вводит
Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности чисел. Ниже представлен вид экрана во время работы программы: Вводит е последовательно числа.
Для завершения ввода введите ноль.
----------------------
1 число: 33
2 число: 45
3 число: -10
4 число: 0
----------------------
Максимальное число: 45
Гость
Ответ(ы) на вопрос:
Гость ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Приём, Вывод ИЗ "...ОтделыОбмен"; ПЕР текЧисло, макс, сч: ЦЕЛ; УКАЗ сч := 1; Вывод.Цепь("Вводите последовательно числа.^"); Вывод.Цепь("Для завершения ввода введите ноль.^"); Вывод.Цепь("----------------------"); ПОВТОРЯТЬ Вывод.ЧЦел("^%d число: ", сч, 0, 0, 0); текЧисло := Приём.Число(); ЕСЛИ текЧисло > макс ТО макс := текЧисло КОН; УВЕЛИЧИТЬ(сч) ДО текЧисло = 0; Вывод.Цепь("^----------------------"); Вывод.ЧЦел("^Максимальное число: %d", макс, 0, 0, 0) КОН Задание.
Не нашли ответ?
Похожие вопросы