pascal
Объяснение:
program minimum;
var
min, i: integer;
begin
repeat
Write('Ведите число (для окончания 0): ');
ReadLn(i);
if ((i <= min) or (min = 0)) and (i <> 0) then min := i;
until i = 0;
WriteLn('Минимальное из введенных чисел = ', min);
end.
pascal
Объяснение:
program minimum;
var
min, i: integer;
begin
repeat
Write('Ведите число (для окончания 0): ');
ReadLn(i);
if ((i <= min) or (min = 0)) and (i <> 0) then min := i;
until i = 0;
WriteLn('Минимальное из введенных чисел = ', min);
end.