Осуществить ввод последовательности целых чисел и определить наибольшее введенное - Free Pascal

Формулировка задачи:

Осуществить ввод последовательности целых чисел. Определить наибольшее введенное. Окончание ввода последовательности служит 0.

Решение задачи: «Осуществить ввод последовательности целых чисел и определить наибольшее введенное»

Листинг программы

  Read(n); max:=n;
  while n<>0 do begin
    if n>max then max:=n;
    Read(n);
  end;
  if max=0 then WriteLn('Последовательность пуста')
  else WriteLn('max=',max);

Объяснение кода листинга программы

В этом коде:

Read(n); — считывается целое число в переменную n.
max:=n; — max присваивается значение n, то есть считанное число.
while n<>0 do begin — цикл, который будет выполняться, пока n не равно нулю.
if n>max then max:=n; — если n больше текущего значения max, то max присваивается значение n.
Read(n); — считывается следующее целое число в переменную n.
if max=0 then WriteLn('Последовательность пуста') — если max равно нулю, то выводится сообщение Последовательность пуста.
WriteLn('max=',max); — выводится сообщение max= и значение max. Пример вывода: Последовательность: 3 6 1 0 max=6