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

Найти минимальный элемент массива и его порядковый номер. Паскаль (Pascal).

Найти минимальный элемент массива и его порядковый номер. Паскаль (Pascal).
Перепишем задачу Как найти минимальный элемент массива в паскале?

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

Результат:
Найти минимальный элемент массива и его порядковый номер pascal
Найти минимальный элемент массива и его порядковый номер. Паскаль.

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

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