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

Задача

Рассмотрим вариант решения задания из учебника Босова, Босова 8 класс, Бином: 8. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел. Используйте оператор repeat. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 8 bosova8 3-5/8 832

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

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

program N_9;
var
  x, max: integer;
begin
  write(‘Введи число>>’);
  readln(x);
  max := x;
  repeat
    if x > max then max := x;
    write(‘Введи число>>’);
    readln(x);
  until x = 0;
  writeln(max);
end.