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

Задача

var
x, max: integer;
begin
write(‘х > > ‘);
readln(x);
max := x;
repeat
write(‘х > > ‘);
readln(x);
if max < x then max := x; until x = 0; writeln('Наибольшее число = ', max) end. Окно вывода х > > 45
х > > 67
х > > 23
х > > 13
х > > 69
х > > 12
х > > 0
Наибольшее число = 69

Подробный ответ

Сначала вводим первое число и считаем его текущим максимумом. Затем в цикле repeat … until последовательно вводим остальные числа до появления нуля. Если очередное число больше текущего максимума, обновляем значение max. Когда введён ноль, цикл заканчивается, и выводится найденное наибольшее число.

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$$.