Помогите пожалуйста. Срочно!!!

[AyratGa]

Помогите пожалуйста. Срочно!!!

Заранее спасибо.
Условие задачи:
Определить наименьшее из чисел, введенных с клавиатуры.
Количество чисел неизвестно, а их запрос с клавиатуры прекращается, если введено число "0". Нужно решить в Паскале.

 

[Vladimir_S]

Заранее спасибо.
Условие задачи:
Определить наименьшее из чисел, введенных с клавиатуры.
Количество чисел неизвестно, а их запрос с клавиатуры прекращается, если введено число "0". Нужно решить в Паскале.

Ох, скукотища... Да пожалуйста:

Var
 a,min:integer;

Begin
 Write('First number: ');
 Readln(min);
 repeat
  Write('Next number: ');
  Readln(a);
  if a<min then min:=a;
 until a=0;
 Writeln('Minimal number is ',min);
 Readln
End.

 

[AyratGa]

Спасибо большое)

 

[Vladimir_S]

Спасибо большое)

Да не за что...