Question

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

Answer 1

Var
max,a:real;
begin
readln(a);
    While a<>0 do
         begin
             if a> max then
                   max:=a;
              readln(a);
         end;
writeln('max: ',max);
end.

Answer 2

Если последовательность состоит из натуральных чисел и завершается числом 0, то наибольшее значение в этой последовательности будет наибольшим из всех натуральных чисел, которые встречаются в последовательности до числа 0.

Для определения наибольшего значения в последовательности, нужно просмотреть все числа в последовательности до тех пор, пока не встретится число 0. При этом, нужно запоминать наибольшее число, которое встретилось до текущего момента.

Пример: Пусть дана последовательность: 5, 3, 8, 2, 10, 0.

Перебирая числа в этой последовательности, мы запоминаем наибольшее число, которое встречается: - 5 - наибольшее число, которое встретилось до этого момента; - 3 - не больше, чем 5, поэтому оставляем 5; - 8 - больше, чем 5, поэтому запоминаем 8; - 2 - не больше, чем 8, поэтому оставляем 8; - 10 - больше, чем 8, поэтому запоминаем 10; - 0 - последнее число, поэтому наибольшее число в этой последовательности равно 10.

Таким образом, наибольшее значение в данной последовательности равно 10.