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

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

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

program MinNum;

  {найти минимальное число в массиве паскаль}
const
  N = 10;
var
  i_ArNm: array[1..N] of integer;
  i, i_min: integer;
begin
  Writeln('Введите число массива');
  for i := 1 to N do
    ReadLn(i_ArNm[i]);
  i_min := i_ArNm[1];
  for i := 1 to N do
  begin
    if i_ArNm[i] < i_min then
      i_min := i_ArNm[i];
  end;
  Writeln('минимальное число в массиве ', i_min);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
найти минимальное число в массиве паскаль
Найти минимальное число в массиве паскаль.

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

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