Помогите написать прогу Опции

[999]

Как написать програму в которую вводится определёная последавтельность чисел и нужно найти самое большое число... Как вводить даные то ясно а сам алгоритм нахождения максимального числа не совсем...

[Lapp]

Можно вот так (для целых чисел)

var
  n,max: integer;

begin
  max:=Low(integer);         {сначала берем минимальное число из возможных}
  repeat
    ReadLn(n);
    if not EoF(input) and (n>max) then max:=n;    {это основной оператор}
  until EoF(input);          {заканчиваем вводом ctrl-Z на отдельной строке}
  WriteLn('max = ',max)
end.

Тут нет защиты от пустого ввода.