Question

Паскаль составить программу, которая сначала за максимум считает число 0, потом получает последовательно каждое число, и получив, сразу сверяет с максимумом

Answer 1

б = макс число

а = 0

а + 1

если а = б, то а = 0, перейти к пред идущему шагу

если а < б то перейти к пред идущему шагу

Answer 2

Конечно, вот пример программы на Pascal, которая выполняет заданное вами действие:

pascalCopy code
program MaxNumberFinder;

var
  number, maximum: Integer;

begin
  writeln('Введите числа. Для завершения введите отрицательное число.');
  
  { Инициализация максимума значением 0 }
  maximum := 0;
  
  repeat
    write('Введите число: ');
    readln(number);
    
    { Проверка, является ли число отрицательным (завершение ввода) }
    if number < 0 then
      break;
      
    { Сравнение с текущим максимумом }
    if number > maximum then
      maximum := number;
      
  until false; { Бесконечный цикл с прерыванием при вводе отрицательного числа }
  
  writeln('Максимальное число:', maximum);
end.

Этот код создает программу на Pascal, которая предлагает вам ввести числа по одному до тех пор, пока вы не введете отрицательное число. Программа будет сравнивать каждое введенное число с текущим максимумом и обновлять максимум, если введенное число больше текущего максимума. После ввода отрицательного числа программа выведет найденный максимум.