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

Как найти минимальный элемент массива в паскале?

Как найти минимальный элемент массива в паскале?
Константа MAXINT.

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

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

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

2 комментария на “Как найти минимальный элемент массива в паскале?”

  • Васлий:

    Большое спасибо, доступно. Свою задачу сразу решил.

  • Рут:

    Это хорошо, а что делать если надо вывести все максимальные индексы?