Question

Помогите ! На Pascal Напишите на любом известном вам языке программирования программу, которая находит минимальное значение в массиве из N (N <= 100) натуральных чисел. Программа должна считывать сначала количество элементов массива, а затем сам массив и выводить одно число — минимальный элемент массива.

Answer 1

PascalABC.NET 3.4

begin
  var n := ReadlnInteger;
  var a := ReadArrInteger(n);
  Writeln(a.Min)
end.

Answer 2

Конечно, вот пример программы на языке Pascal (Free Pascal), которая находит минимальное значение в массиве натуральных чисел:

pascalCopy code
program FindMinValueInArray;

const
  MaxArraySize = 100;

var
  arr: array[1..MaxArraySize] of Integer;
  N, i, minValue: Integer;

begin
  { Ввод количества элементов массива }
  Write('Введите количество элементов массива (N <= 100): ');
  ReadLn(N);

  { Проверка на допустимость значения N }
  if (N <= 0) or (N > MaxArraySize) then
  begin
    WriteLn('Неверное значение N. Введите число от 1 до 100.');
    Exit;
  end;

  { Ввод элементов массива }
  WriteLn('Введите элементы массива:');
  for i := 1 to N do
  begin
    ReadLn(arr[i]);
  end;

  { Находим минимальное значение }
  minValue := arr[1];
  for i := 2 to N do
  begin
    if arr[i] < minValue then
      minValue := arr[i];
  end;

  { Вывод результата }
  WriteLn('Минимальный элемент массива: ', minValue);
end.

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