Question

Пользователь вводит числа до тех пор пока не введет 0 после того как введен ноль - вывести самое больше и самое маленькое числа из введенных

ставлю 50 балов ​

Answer 1

Объяснение:

Предполагается, что будет введено минимум одно значение. 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.