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

Найти минимум и максимум в массиве — Pascal (Паскаль).

Найти минимум и максимум в массиве — Pascal (Паскаль).

program Min_Maks_Arr;

  {Найти минимум и максимум в массиве - Pascal (Паскаль)}
const
  N = 10;
var
  i_ArNm: array[1..N] of integer;
  i, i_Min, i_Max, MININT: integer;
begin
  MININT := not (MaxInt);
  i_Max := MININT;
  i_Min := MaxInt;
  randomize;
  Writeln('Заполнение массива псевдослучайными числами');
  for i := 1 to N do
  begin
    i_ArNm[i] := random(40);
    WriteLn('i = ', i, ' число = ', i_ArNm[i]);
    if i_Min > i_ArNm[i] then
      i_Min := i_ArNm[i];
    if i_Max < i_ArNm[i] then
      i_Max := i_ArNm[i];
  end;
  WriteLn('Минимум: ', i_Min);
  WriteLn('Максимум: ', i_Max);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Найти минимум и максимум в массиве - Pascal (Паскаль)
Найти минимум и максимум в массиве — Pascal (Паскаль).

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

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