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

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите пожалуйста. Срочно!!! (http://www.tehnari.ru/f41/t264211/)

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

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

Цитата:

Сообщение от AyratGa (Сообщение 2646964)

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

Код:

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 (Сообщение 2646972)

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

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