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

Нахождение минимального элемента массива, Паскаль.

Нахождение минимального элемента массива, Паскаль.

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

Результат:
Нахождение минимального элемента массива, Паскаль
Нахождение минимального элемента массива, Паскаль.

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

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