Question

Даны СЛУЧАЙНЫЕ числа ,Найти МИНИМАЛЬНОЕ из них PASCAL

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Минимальный элемент ',a.Min);
end.

Пример
n= 18
-14 13 39 -5 -39 -8 39 41 -2 -49 -32 18 -33 -50 10 2 -2 3
Минимальный элемент -50

Answer 2

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

pascalCopy code
program Нахождение_Минимума;
var
  количествоЧисел, число, минимум: integer;
  i: integer;
begin
  writeln('Введите количество случайных чисел: ');
  readln(количествоЧисел);

  writeln('Введите первое число: ');
  readln(минимум);

  for i := 2 to количествоЧисел do
  begin
    writeln('Введите следующее число: ');
    readln(число);
    
    if число < минимум then
      минимум := число;
  end;

  writeln('Минимальное число: ', минимум);
  readln;
end.

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