Question

Необходимо решить задачу: В переменную X по очереди вводится последовательность целых чисел до ввода 0. В переменной max получить максимальное из чисел. Нужно эту задачу решить в цикле, можно блок схемой или программой на языке Pascal.

Answer 1

Var x,max:integer;
begin
write('x='); readln(x);
max:=x;
while x<>0 do
 begin
 if x>max then max:=x;
 write('x='); readln(x);
 end;
writeln('max=',max);
end.

Пример:
x=12
x=34
x=87
x=46
x=39
x=7
x=45
x=0
max=87

Answer 2

Вы можете решить эту задачу на языке Pascal с использованием цикла следующим образом:

pascalCopy code
program MaxNumber;
var
  X, max: integer;
begin
  max := 0; // Инициализируем max нулевым значением
  repeat
    write('Введите число (0 для завершения): ');
    readln(X);
    
    if X > max then
      max := X; // Обновляем значение max, если введенное число больше текущего максимума
  until X = 0;
  
  writeln('Максимальное число: ', max);
end.

Эта программа будет запрашивать у пользователя числа до тех пор, пока не будет введен 0. В то время как программа получает числа, она сравнивает каждое число с текущим максимальным значением (max) и обновляет max, если введенное число больше. В конце программа выводит максимальное число.