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

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

Сначала вводим первое число и считаем его текущим максимальным. Затем в цикле 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.

Ответ

Программа вводит целые числа до появления нуля и выводит наибольшее из введённых чисел.