8класс
Страница 163 §3.5 номер 8, ГДЗ по информатике за 8 класс к учебнику Босовой
Номер 8. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел. Используйте оператор repeat.
program z8;
var
x, max: integer;
begin
readln(x);
max := x;
repeat
readln(x);
if (max < x) and (x <> 0) then max := x;
until x = 0;
writeln('max = ', max)
end.
