Question

Составить программу на языке Pascal, которая находит минимальный элемент массива из 10 целых чисел. Организовать ввод элементов массива с клавиатуры.

Answer 1

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

begin
  ReadArrInteger(10).Min.Println;
end.

Answer 2

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

pascalCopy code
program FindMinElement;

const
  N = 10; // Количество элементов в массиве

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

begin
  // Ввод элементов массива с клавиатуры
  Writeln('Введите ', N, ' целых чисел:');
  for i := 1 to N do
  begin
    Write('Элемент ', i, ': ');
    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.

Программа попросит вас ввести 10 целых чисел, после чего найдет и выведет минимальный элемент из введенных.