Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Pascal (Паскаль). Поиск минимального и максимального элементов массива.
Рассмотрим на примере чисел, которые имеют тип integer. Введем константу n=10, наш размер массива.

1. Код для поиска минимального элемента массива в Паскале:

program SeekMin_Task;
  //программа поиск минимального значения в массиве
const
  n = 10;
var
  i_MinNub, i: integer;
  i_MasNum: array[1..n] of integer;
begin
  i_MinNub := 100; //присваиваем сто, начнем поиск с 100
  //заполяем массив
  i_MasNum[1] := 11;
  i_MasNum[2] := 4;
  i_MasNum[3] := -14;
  i_MasNum[4] := 3;
  i_MasNum[5] := 18;
  i_MasNum[6] := 13;
  i_MasNum[7] := 11;
  i_MasNum[8] := 12;
  i_MasNum[9] := 17;
  i_MasNum[10] := 7;
  for i := 1 to n do
    if i_MasNum[i] < i_MinNub then
      i_MinNub := i_MasNum[i];
  Writeln('Min: ', i_MinNub);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Поиск минимального элемента массива Pascal (Паскаль).

2. Код для поиска максимального элемента массива в Паскале:

program SeekMax_Task;
  //программа поиск максимального значения в массиве
const
  n = 10;
var
  i_MaxNub: integer;
  i: integer;
  i_MasNum: array[1..n] of integer;

begin
  i_MaxNub := 0; // максимальное значение
  //заполяем массив
  i_MasNum[1] := 1;
  i_MasNum[2] := 34;
  i_MasNum[3] := -14;
  i_MasNum[4] := 3;
  i_MasNum[5] := 18;
  i_MasNum[6] := 1033;
  i_MasNum[7] := 11;
  i_MasNum[8] := 120;
  i_MasNum[9] := 7;
  i_MasNum[10] := 8;
  for i := 1 to n do
    if i_MasNum[i] > i_MaxNub then
      i_MaxNub := i_MasNum[i];
  Writeln('Max ', i_MaxNub);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Поиск максимального элемента массива Pascal (Паскаль).