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

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

Нахождение максимального элемента массива — Pascal.
Попалась задача «Нахождение максимального элемента массива, язык программирования Паскаль» на контрольной, прошу помочь.
Ответ:

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

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

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

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