Question

Определить наименьшее из чисел введённых с клавиатуры количество чисел не известно, а их запрос с клавиатуры прекращается если введено число 0 (pascal)

Answer 1

program raf105;

var a, min: integer;

begin

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

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

min:= 10000;

readln(a);

while a<>0 do

begin

 if a<min

   then min:= a;

 readln(a);

end;

writeln('Наименьшее: ',min);

end.

Язык PascalABC

Answer 2

Для определения наименьшего числа из введенных с клавиатуры, пока не будет введено число 0, можно использовать следующий код на языке Pascal:

pascalCopy code
program FindSmallestNumber;

var
  num, smallest: Integer;

begin
  // Инициализируем переменные
  smallest := MaxInt; // Максимальное значение типа Integer

  writeln('Введите числа (введите 0, чтобы прекратить ввод): ');

  // Считываем числа и ищем наименьшее
  repeat
    readln(num);
    if num <> 0 then
    begin
      if num < smallest then
        smallest := num;
    end;
  until num = 0;

  // Выводим результат
  writeln('Наименьшее число: ', smallest);
end.

Программа будет запрашивать числа с клавиатуры до тех пор, пока не будет введено число 0. После этого она выведет наименьшее число из введенных (кроме 0).