Напиши программу, в которой осуществляется ввод целых чисел(ввод осуществляется до тех пор, пока не будет введён ноль) и определения максимального из введённых чисел. Используйте оператор REPEAT. Даю 100 баллов. Информатика, 8 класс

Вопрос школьника по предмету Информатика

Напиши программу, в которой осуществляется ввод целых чисел(ввод осуществляется до тех пор, пока не будет введён ноль) и определения максимального из введённых чисел. Используйте оператор REPEAT.
Даю 100 баллов. Информатика, 8 класс

Ответ учителя по предмету Информатика

Ответ:

Предполагается, что будет введено минимум одно значение. var

max,a : integer;

begin

readln(a);

max := a;

repeat

readln(a);

if (a > max) and (a <> 0) then

max := a;

until a = 0;

writeln(max);

readln;

end.