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

Найти максимальный элемент массива, паскаль.

Найти максимальный элемент массива, паскаль.

Задача заключается в нахождении максимального элемента в массиве.

Перебираем в цикле все элементы массива, сравниваем элементы массива с переменной i_Max.
На первом шаге вводим поэлементно числа в массив. Затем переменной i_Max присваиваем значение первого элемента массива.
В цикле сравниваем значение переменной и очередного элемента массива. Если переменная i_Max меньше по значению элемента массива, в это случае i_Max присваиваем новое значение равное элементу массива.

program Task_Min1;

  {задачи на числа паскаль с решением}
  {Найти максимальный элемент массива, паскаль.}
var
  i, i_Max: integer;
  i_ArrNum: array[1..10] of integer;

begin
  WriteLn('Задача, найти максиальный элемент массива:');
  WriteLn('Введите 10 (десять) чисел:');
  for i := 1 to 10 do
    ReadLn(i_ArrNum[i]);
  i_Max := i_ArrNum[1];
  i := 1;
  repeat
    if i_Max < i_ArrNum[i] then
      i_Max := i_ArrNum[i];
    i := i + 1;
  until i > 10;
  WriteLn('Максиальный элемент массива = ', i_Max);

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Найти максимальный элемент массива, паскаль
Найти максимальный элемент массива, паскаль.

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

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