8. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел. Используйте оператор repeat.
Ответ
Программа на языке программирования, который использует оператор repeat для ввода целых чисел и определения максимального числа:
program findMax;
var
num, max: integer;
begin
max := -9999; // предполагаемый минимальный вводимый числовой предел
repeat
write(‘Введите число (0 для выхода): ‘);
readln(num);
if num > max then
max := num;until num = 0;
writeln(‘Максимальное число: ‘, max);
end.
В данной программе объявляются две переменные: num для хранения вводимого числа и max для хранения максимального числа. Изначально переменная max инициализируется очень маленьким значением (например, -9999), чтобы все вводимые числа были больше этого значения.
Внутри цикла repeat программа просит пользователя ввести число и считывает его с помощью функции readln. Затем проверяется, является ли введенное число большим, чем текущее максимальное значение max. Если это так, то max обновляется соответствующим образом.
Цикл будет продолжаться до тех пор, пока вводимое число не будет равным нулю.
После выхода из цикла программа выводит максимальное число с помощью функции writeln.
Вы можете скопировать эту программу на свой компьютер, сохранить в файл с расширением .pas и запустить ее в среде программирования, чтобы увидеть результаты.