Заблаговременно спасибо.Условие задачки:Найти меньшее из чисел, введенных с

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

Задать свой вопрос
1 ответ

program raf105;

var a, min: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтоб закончить введите 0');

min:= 10000;

readln(a);

while alt;gt;0 do

begin

 if alt;min

   then min:= a;

 readln(a);

end;

writeln('Меньшее: ',min);

end.

Язык PascalABC

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт