Цитата:
Сообщение от AyratGa
Заранее спасибо.
Условие задачи:
Определить наименьшее из чисел, введенных с клавиатуры.
Количество чисел неизвестно, а их запрос с клавиатуры прекращается, если введено число "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.