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

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

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

Одна из задач «Как найти максимальный элемент в массиве, паскаль?» часто встречается в изучении дисциплины — программирование. Что не удивительно, в жизни такого рода задачи встречаются часто. Как пример: найти максимальное значение в результатах спортивных соревнований, что бы определить чемпиона.

program Task_Max6;

  {задачи на числа паскаль с решением}
  {Как найти максимальный элемент в массиве, паскаль.}
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).

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