Задание 8 Параграф 4.5 ГДЗ Босова 8 класс 2025 (Информатика)

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

Сначала вводим первое число и считаем его текущим максимумом. Затем в цикле повторяем ввод чисел до тех пор, пока не встретится $$0$$. Если очередное введённое число больше текущего максимума, то обновляем значение максимума.

var
  x, max: integer;
begin
  write(‘x>>’);
  readln(x);
  max := x;
  repeat
    write(‘x>>’);
    readln(x);
    if max < x then max := x;
  until x = 0;
  writeln(‘Наибольшее число = ‘, max)
end.

При вводе чисел $$45, 67, 23, 13, 69, 12, 0$$ наибольшее число равно $$69$$.

Ответ: программа выводит Наибольшее число = 69.