Найти минимальное число

[Fedorivanch]

Пользователь вводит с клавиатуры ряд натуральных чисел ("0" означает конец ввода ).Определить минимальное число. Паскаль, массивы не использовать

[Байтик]

Какой язык?
Сделано ли что-нибудь?

[Alex11223]

Тут не решатель задач. Если кто-то просто решит за вас, это вряд ли поможет вам разобраться.

покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[Fedorivanch]

Не работает
var

X:Integer;
Min: Integer;
begin
Min :=0;
Writeln('Введите числа, 0 конец ввода ');
repeat
Readln(X);

if x< min then
Min := X;
until x=0;
if x=0 then
until x =0

Write('Наименьшее число ', Min)
end .

[Аватар]

if x< min then

какое интересно натуральное число меньше нуля?

until x =0

а это зачем?

[Fedorivanch]

Второе что бы ввод остановить когда появился 0

[digitalis]

Для поиска минимума начальное значение Min д.быть очень большим числом (максимальным для int). Второй until x =0 действительно ни к чему - выскочит из цикла уже при первом появлении нуля. Я бы написал так:

Min := MaxInt;
Writeln('Введите числа, 0 конец ввода ');
repeat
Readln(X);
if (x< min) and (x>0) then
Min := X;
until x=0;

Заодно игнорируются введенные отрицательные числа.

[Аватар]

Или такой цикл

Readln(X);
while x>0 do begin
  if x< min then Min := X;
  Readln(X);
end;

[Байтик]

Readln(x);
Min := x;
while x>0 do begin
  Readln(X);
  if (x<>0) and (x< min) then Min := X;
end;
if Min = 0 then
  Write('Последовательность пуста');

Паскаль знаю неважно, за возможные ошибки заранее извиняюсь.
Идея в том, что первое число обрабатывается особым способом. И тогда не нужно никаких

Min д.быть очень большим числом (максимальным для int).

[digitalis]

Такой вариант не гарантирует от ввода отрицательного числа, которое не есть натуральное. Тогда уж x и Min должны быть unsigned