profile="http://gmpg.org/xfn/11"> Найти минимальный элемент массива, паскаль. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Найти минимальный элемент массива, паскаль.

Найти минимальный элемент массива, паскаль.

Задача заключается в нахождении минимального элемента в массиве.

Перебираем в цикле все элементы массива, сравниваем элементы массива с переменной i_Min.
На первом шаге вводим поэлементно числа в массив. Затем переменной i_Min присваиваем значение первого элемента массива.
В цикле сравниваем значение переменной и очередного элемента массива. Если переменная больше по значению элемента массива, тогда значение переменной меняем на значение элемента массива.

program Task_Min1;

  {задачи на числа паскаль с решением}
  {найти минимальный элемент массива, паскаль}
var
  i, i_Min: integer;
  i_ArrNum: array[1..10] of integer;

begin
  WriteLn('Задача, найти минимальный элемент массива:');
  WriteLn('Введите 10 (десять) чисел:');
  for i := 1 to 10 do
    ReadLn(i_ArrNum[i]);
  i_Min := i_ArrNum[1];
  i := 1;
  repeat
    if i_Min > i_ArrNum[i] then
      i_Min := i_ArrNum[i];
    i := i + 1;
  until i > 10;
  WriteLn('минимальный элемент массива = ', i_Min);

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Найти минимальный элемент массива, паскаль
Найти минимальный элемент массива, паскаль.

Дополнительные материалы:
Как найти минимальный элемент массива в паскале?
Найти минимум и максимум в массиве — Pascal (Паскаль).
Найти минимальное число в массиве, паскаль.
Минимальное значение, которое может иметь число типа Integer в Паскале.
Найти минимальный элемент массива и его порядковый номер. Паскаль (Pascal).

Комментарии запрещены.