Question

Напишите программу в Pascal для этой задачи: Найти минимальное число в последовательности положительных чисел.

Answer 1

Var a, max, i : integer; s, x : string;
begin max:=-1; readln(s); for i:=1 to length(s) do begin x:=copy(s, i, 1); val(x, a); if a>max then max:=a; end; writeln(max);end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая находит минимальное число в последовательности положительных чисел:

pascalCopy code
program НайтиМинимальноеЧисло;

var
  число, минимальное: integer;

begin
  минимальное := 32767;  // Изначально задаем большое значение для минимального числа

  writeln('Введите последовательность положительных чисел (для завершения введите 0):');

  repeat
    write('Введите число: ');
    readln(число);

    if (число > 0) and (число < минимальное) then
      минимальное := число;
  until число = 0;

  if минимальное = 32767 then
    writeln('Последовательность не содержит положительных чисел.')
  else
    writeln('Минимальное число: ', минимальное);

  readln;
end.

Программа просит пользователя ввести последовательность положительных чисел, каждое число вводится по очереди. Ввод следует завершить, введя 0. Программа находит минимальное число в последовательности и выводит его на экран. Если в последовательности не было введено ни одного положительного числа, программа выведет соответствующее сообщение.

Обратите внимание, что в приведенном примере программы используется тип данных integer. Если в последовательности могут быть числа с очень большими значениями, вам может понадобиться использовать тип данных int64.