Задача Задача №1112206
А
А
Дополните и Исправьте ошибки в программе которые пока не будет введён ноль запрашивает целый положительные числа с клавиатуры и находят среди них наибольший результат вводится на…
Запрос пользователя
Дополните и Исправьте ошибки в программе которые пока не будет введён ноль запрашивает целый положительные числа с клавиатуры и находят среди них наибольший результат вводится на экран var x, max: begin: max:= 0 readln(_); while x <>0 do begin if x> then max:=x; readln(x); end; writeln('max=',max); end.
Привет! Вот исправленная программа для нахождения наибольшего положительного числа из введенных с клавиатуры:
var x, max: integer;
begin max := 0; repeat readln(x); if (x > max) then max := x; until x = 0;
writeln('Наибольшее число:', max); end.
Надеюсь, это поможет тебе в решении задачи! Всегда готов помочь с дополнительными вопросами. Удачи в учебе!
